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I'd like to welcome the newly elected, 
re-elected, and continuing members of the 
Forth Interest Group's Board of Directors. 
They all bring talent, energy, and experi- 
ence to their positions, and are dedicated to 
furthering the causes of the Forth commu- 
nity. Your support and constructive input 
will empower them in the job they are doing 
for the rest of us. 

There has been so much discussion re- 
cently about Forth's future and the possible 
directions FIG can take, that this issue em- 
phasizes some of the issues and viewpoints. 
John Hall and Glen Haydon, in particular, 
touch on important areas of concern. 

About Forth's future, may I say that the 
people who most fervently ask that ques- 
tion seem to be in businesses where Forth's 
relatively iconoclastic methods of accom- 
plishing tough tasks make management 
edgy. But productive companies are qui- 
etly using Forth every day to write impor- 
tant, profitable code. They employ profes- 
sional programmers and don't spend much 
time promoting Forth or worrying about its 
future. They are in business to get a job 
done, and are using a language that — with 
cultivation and experience — adapts en- 
tirely to their specific needs and practices. 

If you find an ANSI Forth document in 
the future that doesn't include your prac- 
tice, then maybe you were one of the 250 
key people who didn't return a question- 
naire to the Technical Committee, or 
maybe you buy your Forth from one of 
them... Jerry Shifrin's concluding notes 
about the last ANS Forth meeting are inter- 
esting and important As difficult as it is to 
imagine a standards document that can 
codify common practice, how close it gets 
will depend on who gets involved. 

Any proposal submitted to the commit- 



tee is open to public comment, and all such 
comments must be addressed in committee 
meeting. So there is opportunity for wide 
participation, even without becoming an 
official member of a committee. 

Opportunities will abound Down Under 
on May 19-20, 1988, when the first Austra- 
lian Forth Symposium will be held at the 
NSW Institute of Technology. There will 
be a keynote presentation by Charles 
Moore (Forth's inventor), and the Novix 
Forth microprocessor family will be fea- 
tured. The first day will include papers and 
demonstrations to show what can be done 
in Forth, and how quickly working applica- 
tions can be developed. The second day 
will offer a choice of workshops, with in- 
struction and hands-on experience. An 
exhibit will be running both days. If you are 
interested in a possible group travel rate 
from the United States, call the Forth Inter- 
est Group for information or see the ad in 
this issue. 

This symposium has been initiated by a 
group of professionally based Forth users 
(from both industrial and academic organi- 
zations) who believe the language should 
be more widely known and used by profes- 
sionals. The focus will be on Forth as a 
programming system for productivity, and 
papers are still welcome. We've heard for 
some time that Australia and New Zealand 
have some pretty interesting Forth activity, 
so this will be a great chance to learn how 
business is progressing in that part of the 
world and how their Forth professionals are 
planning for the future. (And 1988 is 
Australia's bi-centennial year, if you 
needed just one more reason to go....) 

— Martin Ouverson 
Editor 
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Local Variables 
Dear Editor, 

Local variables have been the subject of 
many earlier contributions, but I have not 
seen the following, simple implementa- 
tion. 

My version of Forth local variables 
makes use of ordinary Forth variables de- 
clared, and probably used, outside the co- 
lon definition. The only word to be used, 
following the name of the variable, is lo- 
cal. This must be in the beginning of a 
colon definition, and not inside control 
structures or some other kind of return- 
stack manipulation. The variable can then 
be used freely inside the colon definition, 
and will be restored to its original value on 
exit 

The code for LMI PC/FORTH+ is 
shown in Figure One. (For PC/FORTH, 
omit ADDR>S&0.) 

Since the natural scope for a local vari- 
able in Forth is a colon definition, local 
variables can be managed on the return 
stack, local first saves the address and 
the value of the variable on the return stack, 
then arranges an exit through (LOCAL) by 
placing the address of (local) on the 
return stack. On exit from the colon defini- 
tion, which was the local scope of the 
variable, (LOCAL) will then restore the 
old value of the variable from the return 
stack. There can be more than one local 
variable in a definition. 

For a simple example, see Figure Two' s 
rather foolish implementation of the facto- 
rial function N ! with recursion and a local 
variable. 

This is a simple and easy-to-use, high- 
level implementation of local variables. An 



assembler-coded version would probably 
provide very fast local variables in Forth. 

Yours, 

Henning Hansen 

1 16, Technical University of Denmark 
2800 Lynby, Denmark 



Don't Chip Off the Old Block 
Dear Marlin, 

I read, too, inForthDimensions (VH/2), 
Mr. Ramer W. Streed's letter about chang- 
ing source editing. Well, I must say that 
sometimes it's also difficult to me to get rid 
of screen numbers, lines, and shadows. 
(First I was using Super-Forth 64 on the 
little Commodore; now I own an IBM com- 
patible, running a modified version of F83 
— and I only got F83 two or three weeks 
ago!) Anyway, I don't agree with Mr. 
Streed completely... 

Surely it can be useful, being able to 
read and compile a text, source file, espe- 
cially if it is downloaded from a BBS, but I 
think we must keep screens. I mean, 
screens are part of Forth philosophy, of 
thinking Forth! It is BLOCK, SCR, BLK, 
BUFFER, LIST, and FLUSH that make 
Forth different from other languages, and 
therefore so fascinating! 

I don't think screens are so awful. Espe- 
cially with F83's shadows and glossary, it 
is possible to supply all the documentation 
needed, even for a large program to be 
understood. Abandoning screens for AS- 
CII would negate Forth philosophy and 
make Forth similar to other, non-docu- 
menting languages. 

I agree with Mr. Streed when he says 



that, when we have developed a low-level 
word, we don't have to concern ourselves 
with what it has to do when called from 
within another one. But he means the op- 
posite thing when he says that someone 
must keep track of line numbers, screens, 
and so on. Forth is beautiful, because 
when you write a word, you can immedi- 
ately test it on the keyboard — unlike 
other, so-called structured languages that, 
in reality, isolate the programmer from his 
computer (see the hateful Pascal, for ex- 
ample, which doesn't let you examine a 
single part of your program without hav- 
ing to compile it all...). 

I mean, when I've developed a low- 
level word and, having retested it, found it 
works on a general job, I don't have to 
concern myself further with where it is 
(anyway, I can view it). About moving 
lines, I think it is better to avoid crowding 
a screen with a lot of words from the 
beginning, or the documentation will be 
unuseable. I thank both Mr. Pasquale and 
Mr. Wenrich for their work, but I encour- 
age all Forth people to join ASCII if they 
want, but don't leave screens and blocks! 

Sincerely, 
Pierluigi De Rosa 
Via Nicola Parisio 4/C 
87100 Cosenza, Italy 

Name That Architecture... 

Dear Editor, 

Articles now appearing on Forth-re- 
lated processors have many ways of nam- 
ing these items. For example, I have seen 
the terms RISC, Forth Engine, and Stack 
Machine. While these are descriptive, a 
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better naming approach will have a few 
benefits. I propose that processors that run 
a Forth kernel, whether hard-wired or by 
programming in ROM or in microcode, 
have a standard, family name. There are 
many ways of doing this. 

Following the style used by the main- 
stream, they can be labelled Forth Instruc- 
tion Set Computers (FISC). This form par- 
allels that used by other popular processor 
architectures: Complex Instruction Set 
Computers (CISC) and Reduced Instruc- 
tion Set Computers (RISC). 

A more technical term could be used: 
Threaded, Interpretive Stack Machines 
(TISM). This term is more precise and 
broadly applicable, and can even be used to 
describe processors related to Forth's 
architecture; for example, a Writable In- 
struction Set Processor. [Or WISC Tech- 
nologies' Writable Instruction Set Com- 
puters. — ed.] 

Another alternative is to honor Charles 
H. Moore, the creator of Forth and co- 
designer of a commercial Forth engine (the 
Novix NC4000), by naming the "two- 



stack, two-pointer, 4-space machine" after 
him. Unfortunately, the most direct term, 
Moore Machine, is already is use in con- 
nection with state-machine theory. Maybe 
someone can come up with something 
else. 

The term "Forth engine," while it is still 
applicable to a FISC, does not seem cor- 
rect, since Forth itself is undefined. Fur- 
ther, Forth's extensibility has not been 
translated to hardware extensibility. [You 
has better look at those WISC machines, 
Jose. — ed.] Perhaps, when someone puts a 
Xilinx logic cell array; a writable, 
threaded, interpretive stack machine; 8K 
EEPROM; and an LCD with nano-key- 
board on one tiny chip, and this anything 
chip leisurely chugs along at 33 MIPS, we 
will have an interactive, real-time engine. 



Sincerely, 

Jose Betancourt 

85ArloRoad#lA 

Staten Island, New York 10301 



: (LOCAL) 




R> R> ! ; 


\ restore variable address and value 


from return stack 




: LOCAL ( adr - ) 




R> SWAP 


\ save top return address 


DUP 3 SWAP >R >R 


\ put variable address and value on 


return stack 




[*] (LOCAL) >BODY ADDR>SSO 


>R \ exit via (LOCAL) 


>R ; 


\ restore top return address to con- 


tinue current definition 





Figure One. Hansen's local variables for PC/FORTH+. 



VARIABLE VAR 
: N! ( n — n! ) 

VAR LOCAL 

DUP VAR ! 

1- DUP 0> IF RECURSE ELSE DROP 1 THEN 
VAR @ * ; 
\ 10000 times 12 N ! in 45 sec, with PC/FORTH+. 

The simpler word n! is much faster, without the local variable: 

: n! ( n — n! ) 

1 SWAP 1+ 1 ?DO I * LOOP ; 
\ 10000 times 12 n ! in 10 sec. 



Figure Two. Sample use of LOCAL. 
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A FREE SPIRIT: 

WHERE TO FROM HERE? 

GLEN B. HAYDON - LA HONDA, CALIFORNIA 



A 

il-free spirit is, perhaps, the single 
most important trait of Forth users. Each 
user seems to have his own philosophy, 
religion, and brand of the language. Each 
certainly has his own expectations. This 
free spirit made Forth what it is and, at the 
same time, led to its lack of general accep- 
tance. Programmers using other languages 
have never experienced such a free envi- 
ronment 

Many Forth programmers need to eat 
but find little acceptance of their ideas. 
Some have been able to use variations of 
Forth in their work place, but not many. 
Many accept Forth as their avocation, and 
program for a living in other languages. 

The efforts of some vendors and appli- 
cation programmers to develop a common 
basis is in progress. But already some ven- 
dors have clashed. One wants exactly the 
opposite of what another wants. By codify- 
ing a language, a free spirit is stifled. 

For some years, I have attempted to 
understand the free spirit of the creator of 
Forth. Chuck Moore's concepts provide 
the fundamental basis of this language, 
which he named Forth. He wants control 
over the hardware. He wants to keep the 
program small, because a small, simple 
program is efficient. Over the years, he has 
heard many suggestions; most of them he 
has discarded. 

Han Nieuwenhuyzen objected to giving 
the programmer access to all the hardware. 
For years he has used file structures of his 
own devising in his Forth implementations. 
For years, few implementors listened to his 
suggestions. 

The Forth-79 Standard excludes from 



the required word set any primitives that 
access the hardware. The Forth-83 Stan- 
dard continues this movement away from 
the basic hardware. Many users want to run 
other programs on their hardware; they use 
programs daily which are not a part of 
Forth. But at the same time, they have 
applications they wish to program in Forth. 
All sorts of compromises are made. 

The free spirit of Forth implementors 
has prevented programmers, conditioned to 
the constraints of conventional languages 
and operating systems, from adhering to a 
Forth standard. Is there a common thread 
running through all variations of Forth? 



± here is no reason for 
Forth programmers to be at 
odds. 



Various new languages (e.g., Fifth, 
Reptil, Stoic, Urth) have one thing in com- 
mon with Forth: they are threaded, interpre- 
tive languages. As a matter of fact, even 
Microsoft has come to recognize the advan- 
tages of a threaded, interpretive language. 
Their latest version of Quick Basic is imple- 
mented in such a manner. And they indicate 
they will use a threaded interpreted im- 
plementation of C and other packages in the 
future. 

There is no reason to throw out the baby 
with the wash. A subset of Forth is coming 
of age, as threaded, interpretive languages 
are more widely adopted. Loeliger's book, 
Threaded Interpretive Languages was be- 
fore its time. Let threaded, interpretive 



languages grow. 

There is no reason for Forth program- 
mers to be at odds with one another. We 
could focus on a subset upon which we 
agree, and apply our free spirit to other 
areas. 

Perhaps the Forth Interest Group 
should evolve. It could expand its horizons 
to include all variations of threaded inter- 
preted languages; perhaps it could even 
include a threaded, interpretive BASIC. 
This would be a move away from the Forth 
Chuck gave us along with his concern for 
the hardware. (S ince, after all , Chuck is the 
creator of Forth, maybe such a new direc- 
tion should be given a new name.) 

For many years, I have considered 
Forth as Chuck's child. I still do. But I am 
not constrained to do everything in Forth. 
I have an excellent word processor that is 
not written in Forth. (At least, I don't think 
it is.) I use several desktop publishing pro- 
grams, which I know are not written in 
Forth. I use my computers for other things, 
too. 

Several individuals at the recent 
FORML conference, each with his own 
concepts, presented "free-spirit" language 
implementations. Tom Zimmer, in the 
FIG spirit of public-domain shareware, 
provided attendees of FORML a Forth 
without BLOCKS . His implementation can 
serve as a command-processor shell for 
IBM-compatible processors, with access 
to DOS functions. He has included an 
editor that is very much like WordStar, but 
any word processor producing ASCII files 
can be used. I am sure Tom's release is a 
subset of what he now uses commercially. 
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machine code 
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• Technical Assistance Hotline 
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• Bulletin Board System 
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and prices. Consulting and Educational Services 
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Phone credit card orders to: (213) 306-7412 



Overseas Distributors. 
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UK: System Science Ltd., London, 01-248 0962 
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Japan: Southern Pacific Ltd., Yokohama, 045-314-9514 
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It points out a different, possible direction 
for free spirits. 

Mitch Bradley has long urged the com- 
munity to give up blocks. He has provided 
many file-oriented routines. He is con- 
strained to use his processors for other 
programs than Forth. The people he works 
with have trouble with some of the primi- 
tive ways of Forth. 

Forth adherents adopt their own con- 
cept of Forth with a religious fervor. It is 
small wonder that Forth, whatever it is, is 
not accepted by the rest of the world. But 
Microsoft has adopted a threaded, inter- 
pretive language; so has Adobe with their 
PostScript, another of Forth's offspring. 
This fundamental aspect of Forth is being 
adopted widely. 

With the evolution and expansion of 
the Board of Directors of the Forth Interest 
Group, which took place at the recent na- 
tional convention, it may be time to reas- 
sess the organization's focus. By recog- 
nizing the common denominator in Forth, 
and the direction taken by larger software 
houses (threaded interpreted languages), 
we have a common direction that is less 
loaded with emotion. 

It might even be appropriate to empha- 
size the commonality in the community by 
modifying the name of its regular publica- 
tion. Maybe a subtitle would serve to indi- 
cate a change of emphasis. I am not pro- 
posing that the organization and its publi- 
cation change their names. But, just 
maybe, that extreme step could be consid- 
ered. Any such decision is in the hands of 
the Board of Directors. 

In any case, I feel the community could 
be drawn together by focusing on what the 
members have in common — a threaded 
interpreted language. Let Forth users rally 
around their common convictions. There 
is plenty of room for difference without 
emotional conflict. Improvements will 
come through the efforts free spirits: 
Chuck Moore, Hans Nieuwenhuyzen, 
Tom Zimmer, Mitch Bradley, and many 
others have contributed because of their 
free spirits, not because of any imposed 
standard. 



Glen B. Haydon is widely known as the 
implementor of MVP-FORTH and, 
along with Phil Koopman, Jr., creator 
of the WISC CPU/16 and CPU/32 
processors. 
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MODULE 

MANAGEMENT 

ALAN T. FURMAN - SANTA CLARA, CALIFORNIA 



I originally became hooked on extensi- 
bility years ago while programming in 
SAIL, which heavily supports macros. In 
SAIL, one can have files of macro defini- 
tions, both private stock and commumnity 
contributions, and make them available for 
use in a program with the compiler-direc- 
tive statement 

require <filename> 

where the file could itself contain more 
requires. A well-designed set of extension 
packages permits tiny, highly expressive 
programs, with the "require" mechanism 
looking after the bringing-in of macros and 
their hierarchical dependencies. The "in- 
clude" statements of Pascal and C work 
similarly. I decided that Forth needed such 
a facility. I also wanted to be able to refer to 
source code packages by name, rather than 
by numerical address. 

The module management system de- 
scribed here provides, essentially, all the 
convenience of the SAIL "require" in seven 
lines of source code. It is more limited, but 
simpler, than a prior scheme 1 described by 
Michaloski. It runs under, and is easily 
transported to, any Forth system running 
under the screen model, whether true 
physical blocks or logical 1 kbyte records 
in a DOS file. It does not in any way depend 
on a DOS file system as such. 

What It Does 

In brief, the module management sys- 
tem is a way of giving a symbolic name to 
a group of screens that contain generally 
reusable source code. This name is a Forth 



word whose action is to guarantee presence 
of the package in the dictionary, to be used 
by applications. (The system involves re- 
definition of the module name word. There- 
fore, it works only when the module name 
word is interpreted, by the text interpreter, 
from the keyboard or from a screen being 
loaded. It will not work correctly when 
called from inside a colon definition.) An 
example follows. 

Suppose that a module — a named set of 
words — called trigonometry exists 
on disk, and one or more of these words is 
needed by a new word about to be defined. 
Just type 

TRIGONOMETRY 

and commence defining the new word. If 
the trigonometric functions are not in the 
dictionary, TRIGONOMETRY causes them 
to be compiled from the disk. If they are 
already in the dictionary, TRIGONOME- 
TRY is a no-op (nothing happens). That is, 
the effect of trigonometry is to ensure 
that the trigonometry package is in the dic- 
tionary, available to be interpreted or com- 
piled into a higher-level word. 

The Forth user is freed from two chores: 
remembering the numerical addresses of 
the trigonometry package source, and keep- 
ing track of whether they have been com- 
piled into the dictionary yet. If a module 
depends on another, just embed the lower- 
level module's name in the higher-level 
module's source. For example, a GRAPH- 
ICS module may invoke TRIGONOME- 
TRY because it uses the latter's words. A 

ROBOTICS module could use TRIGO- 
NOMETRY as well. Now suppose that a 



robot simulator requires both graphics 
and ROBOTICS. During the compilation 
of GRAPHICS, the trigonometry words 
will be compiled by TRIGONOMETRY. 
When ROBOTICS compiles, the action of 
trigonometry will be a no-op, thereby 
preventing redundant compilation. It is this 
"smart" behavior that makes nesting of 
modules a true convenience. 

The module name word also acts as a 
place-marker for reclaiming dictionary 
space; typing 

FORGET TRIGONOMETRY 

shrinks the dictionary back to just before 
the trigonometry package. 

How It Works 

The module management system has 
three parts. First, the module management 
wordset 

: MODULE ( block#) 

CREATE , DOES> @ LOAD ; 

: LOADMAP: ( --address) 
CREATE HERE -1 , 
DOES> @ ABORT" MODULE 
ERROR" ; 

: loaded ( address) 
SWAP ! ; 

which is compiled from the disk immedi- 
ately upon booting Forth. 

Second, the module declarations, for 
example: 
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A.ustr3.1icL 

Announcing a group travel plan to attend the first Australian Forth 
Symposium in Sydney May 19th & 20th, 1988 and World Expo 88 in 
Brisbane May 21-23, 1988. Other group events include guided 
sightseeing tours and a visit to Lamington National Park located in 
South East Queensland. Optional travel additions can be arranged. 



Australian Forth Symposium 

Charles Moore, Forth' s inventor, is the 
keynote speaker at this event. The sym- 
posium has been initiated by a group 
of professionally based Forth users 
from both industrial and academic 
organizations who believe that the lan- 
guage should be more widely known 
and used by the professional commu- 
nity. The focus is Forth as a program- 
ming system for productivity. The first 
day will feature presented papers and 
demonstrations to show what can be 
done in Forth, and how quickly work- 
ing applications can be developed. The 
second day will offer a choice of special 
interest Workshops, with instruction 
and hands-on experience. An exhibi- 
tion will be open both days. 



World Expo 88 

Australia will host one of the world's 
biggest celebrations in 1988. World 
Expo 88, the international highlight of 
Australia's Bicentenary, will be held in 
the heart of Queensland's capital, Bris- 
bane, from April 30th to October 30th. 
World Expo 88 will be the largest single 
event in the nation's history with an 
estimated attendance of almost eight 
million from throughout Australia and 
other countries. More than 30 nations 
and 20 corporations will showcase 
their achievements under the theme 
"Leisure in the Age of Technology". The 
100 acre Expo site is ideally located on 
the South Bank of the Brisbane River, 
only 100 meters from the heart of the 
Sunshine City of Brisbane . 



Group Travel Itinerary 

Depart San Francisco Monday May 16, 1988 arriving Sydney May 18th. Attend the 
Australian Forth Symposium May 19th and 20th with local tours arranged for 
non-conference guests. Fly to Brisbane on May 21st and visit World Expo 88 
through May 23rd; local tours will also be available. Travel to Lamington National 
Park May 24th with accommodations in a mountain lodge through May 26th. 
Return to Brisbane on May 27th and take the return flight to San Francisco. 

Reservations and Information Brochure 

Contact the Forth Interest Group, P. O. Box 8231, San Jose, CA 95155, telephone 
(408 ) 277-0668. 
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100 MODULE TRIGONOMETRY 
120 MODULE GRAPHICS 

140 MODULE ROBOTICS 

etc. 

HERE FENCE ! 

which are compiled right after the module 
management wordset. They create a group 
of words in the dictionary that serve as a 
kind of "directory" of modules. 

Third, the modules themselves. Each 
module begins with a "load map" screen, 
whose number is the number incorporated 
in the definition of the module word. This 
loadmap invokes the words loadmap : 
and loaded and also causes the remaining 
screens (which contain the module's actual 
source code) to be loaded. The general 
outiine of the loadmap is: 

loadmap : <modulename> 
<loading of source screens> 
loaded 

This is how the loadmap for TRIGO- 
NOMETRY (screen 100) might look: 

LOADMAP : TRIGONOMETRY 

101 LOAD 102 LOAD 103 LOAD 
LOADED 

The top line is not a comment, but it elimi- 
nates the need for one. 

Now consider the case where the sys- 
tem has been booted and the module man- 
agement wordset and the module declara- 
tions have been compiled. The word 
trigonometry is defined such that its 
action is 1 LOAD. Therefore, when the 
word TRIGONOMETRY is interpreted by 
the text interpreter (typed at the terminal or 
read off a screen), its action will be to load 
screen 100. This screen redefines trigo- 
nometry to be a no-op (causing an incon- 
sequential "Redefined" or "Isn't Unique" 
message), and compiles the code on 
screens 101 through 103. The next time 
trigonometry is interpreted, it will act 
according to its new definition, which is a 
no-op. 

As mentioned, modules can be nested. 
For example, screen 120 might look like 
this: 



LOADMAP: GRAPHICS 
TRIGONOMETRY 

121 LOAD 122 LOAD 123 LOAD 124 

LOAD 

LOADED 

Screens 121-124 can thus assume that 
the trigonometry wordset will be available. 

Security 

Two provisions in the module manage- 
ment system that deal with security remain 
to be discussed. 

First, loadmap : does not exactly re- 
define the module name to be a no-op. 
Indeed, it defines a word that will abort 
upon execution. It leaves on the stack a 
pointer to the location of the -1 flag so that 
loaded can subsequently overwrite it 
with a 0. Only then has the module name 
been redefined as a no-op. The reason for 
this two-stage process is that a module 
should be either completely missing from 
the dictionary, or completely compiled. If 
compilation is interrupted (as by a compile 
error), the module is unusable. The combi- 
nation of loadmap : and loaded prevent 
the user from attempting to use a frag- 
mented module. It also prevents cata- 
strophic infinite-loop mutual recursion in 
case two modules try to "require" each 
other. 

The second unexplained provision is the 
phrase 

HERE FENCE ! 

which makes whatever precedes it unFOR- 
GETtable. The very first word added to the 
dictionary when a module is compiled is the 
redefinition of <modulename> performed 
by LOADMAP : . As a result, one can cleanly 
wipe out a module from the dictionary with 

FORGET <modulename> 

which works fine if the module is there. If 
the module is not, then the most recently 
compiled word named <modulename> is 
somewhere in the "directory" of modules, 
which FORGET would partially destroy, if 
it could reach the word. Having the "direc- 
tory" protected in its entirety saves the user 
from having to keep track of a module's 
presence in the dictionary. Trying to FOR- 




NGS FORTH 

A FAST FORTH, 
OPTIMIZED FOR THE IBM 
PERSONAL COMPUTER AND 
MS-DOS COMPATIBLES. 



STANDARD FEATURES 
INCLUDE: 

•79 STANDARD 

•DIRECT I/O ACCESS 

•FULL ACCESS TO MS-DOS 
FILES AND FUNCTIONS 

•ENVIRONMENT SAVE 
& LOAD 

•MULTI -SEGMENTED FOR 
LARGE APPLICATIONS 

•EXTENDED ADDRESSING 

•MEMORY ALLOCATION 
CONFIGURABLE ON-LINE 

•AUTO LOAD SCREEN BOOT 

•LINE & SCREEN EDITORS 

•DECOMPILER AND 
DEBUGGING AIDS 

•8088 ASSEMBLER 

•GRAPHICS & SOUND 

•NGS ENHANCEMENTS 

•DETAILED MANUAL 

•INEXPENSIVE UPGRADES 

•NGS USER NEWSLETTER 

A COMPLETE FORTH 
DEVELOPMENT SYSTEM. 

PRICES START AT $70~ 

NEW<*-HP-150 « HP- 110 
VERSIONS AVAILABLE 



NEXT GENERATION SYSTEMS 
P.O.BOX 2987 
SANTA CLARA, CA. 95055 
(408) 241-5909 
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NOW FOR IBM PC, XT, AT, PS2 1 
AND TRS-80 MODELS 1, 3, 4, 4P 

The Gifted 
Computer 

1. Buy MMSFORTH before year's end, 
to let your computer work harder and 
faster. 

2. Then MMS will reward it (and you) 
with the MMSFORTH GAMES DISK, 
a $39.95 value which we'll add on at 
no additional charge! 

MMSFORTH is the unusually smooth 
and complete Forth system with the 
great support. Many programmers report 
four to ten times greater productivity 
with (his outstanding system, and MMS 
provides advanced applications pro- 
grams in Forth for use by beginners and 
for custom modifications. Unlike many 
Forths on the market, MMSFORTH gives 
you a rich set of the instructions, editing 
and debugging tools that professional 
programmers want. The licensed user 
gets continuing, free phone tips and a 
MMSFORTH Newsletter is available. 
The MMSFORTH GAMES DISK includes 
arcade games (BREAKFORTH, CRASH- 
FORTH and, for TRS-80, FREEWAY), 
board games (OTHELLO and TIC-TAC- 
FORTH), and a top-notch CRYPTO- 
QUOTE HELPER with a data file of 
coded messages and the ability to en- 
code your own. All of these come with 
Forth source code, for a valuable and 
enjoyable demonstration of Forth pro- 
gramming techniques. 
Hurry, and the GAMES DISK will be our 
free gift to you. Our brochure is free, 
too, and our knowledgeable staff is 
ready to answer your questions. Write. 
Better yet, call 817/653-6136. 

hkBfohth 

and a free gift! 

GREAT FORTH: 

MMSFORTH V2.4 $179.95' 

The one you've read about in FORTH: A 
TEXT & REFERENCE. Available for IBM 
PC/XT/AT/PS2 etc., and TRS-80 M.1, 3 
and 4 

GREAT MMSFORTH OPTIONS: 



FORTHWRITE $99.95" 

FORTHCOM 49.95 

OATAHANDLER 59.95 

DATAHANDLER-PLUS* 99.95 

EXPERT-2 69.95 

UTILITIES 49.95 



'Single-computer, single-user prices; cor- 
porate site licenses from $1,000 additional. 
3K" format, add $5/disk; Tandy 1000, add 
$20. Add S/H, plus 5% tax on Mass. orders. 
DH+ not avail, for TRS-808. 
GREAT FORTH SUPPORT: 
Free user tips, MMSFORTH Newsletter, 
consulting on hardware selection, staff 
training, and programming assignments 
large or small. 
GREAT FORTH BOOKS: 

FORTH: A TEXT & REF. $21.95* 

THINKING FORTH 16.95 

Many others in stock. 

MILLER MICROCOMPUTER SERVICES 
61 Lake Snore Road, Natick, MA 01760 
(617/653-6138, 9 am - 9 pm) 



presence in the dictionary. Trying to FOR- 
GET an uncompiled module will then re- 
sult in a harmless error message. 

Further Enhancements 

The module management system is 
shown in its final form in Listing One.The 
first screen may be used verbatim (the other 
screens are usage examples). Normally, it 
is loaded first thing upon booting the sys- 
tem; it will often be the only screen number 
the user has to memorize. In the process, 
the module directory on the following 
screen will be compiled into the dictionary 
and protected by fence, and a constant 
modules will be the screen number of the 
directory source. Type 

MODULES LIST 

to list the modules. 

The word thru (see Appendix) makes 
loadmaps more concise. Given the first and 
last screen numbers, thru loads the inclu- 
sive range of screens. The word +b con- 
verts a relative screen number to an 
absolute one. Using it in loadmaps makes 
modules relocatable on the disk. The load- 
map in the trigonometry example 
given above can be reduced to the form 
shown as Screen 100 in Listing Two. The 
module can now be moved (as a unit, in- 
cluding the load map) to another region of 
the disk. No editing is required, either in the 
module itself or in modules that require it 
(the name trigonometry remains as 
before). However, the original declaration 

100 MODULE TRIGONOMETRY 

on line 2 of Screen 8 1 will have to be edited 
(to reflect the new address of the load map) 
and recompiled. 

Whenever the module declaration 
screen is edited (due to the addition, dele- 
tion, or moving of a module), the module 
directory in the dictionary must be com- 
piled anew from the disk. It is first neces- 
sary to FORGET the prior directory , but it is 
protected by fence. The following proce- 
dure will recompile the directory: 

MODULEMARK FENCE ! 
FORGET MODULEMARK 
80 LOAD 



and in the process, delete everything else 
compiled in since boot-up. It may be just as 
practical to reboot the system and type 

80 LOAD 

as usual. Both alternatives seem trouble- 
some, but seldom need to be performed. 
Once a module has reached final size, ac- 
quired a reliability record, and received 
heavy reuse in applications, it is unlikely 
to move about 

Conclusion 

A system has been described for nam- 
ing reusable, Forth source code packages, 
reminiscent of the "require" and "include" 
facilities of other languages, in which the 
package name becomes a word that com- 
piles the package into the dictionary, as 
needed. It is easy to use and install, and 
supports hierarchies of packages. 

The extreme simplicity and degree of 
control afforded by screens makes this 
system very easy to port, whether in a true 
native Forth or an emulated one with a 
single "screen file." 

References 

1. J. Michaloski, "A Forth Profile Man- 
agement System ," Journal of Forth Appli- 
cation and Research, Vol. 2, No. 3, p 63- 
75 (1984). 

Appendix: System Dependencies 

fence (-address) 

The commonest name of a variable that 
points to the last protected word in the 
dictionary. Unfortunately, the choice of 
which of a word's fields FENCE points to 
is unstandardized. The value of the con- 
stant MODULEMARK as generated in 
Screen 80 should reliably defeat the pro- 
tection of MODULEMARK from FORGET 
when written into FENCE. 

The following words are easily defined 
if a system lacks them. Their definitions 
are best put in screen 80, between the defi- 
nitions Of MODULES and MODULE. 

: THRU ( firstscreen lastscreen ~ ) 

1+ SWAP DO LOAD LOOP ; 

: +B ( relativeblock — abso- 
luteblock) 

BLK @ + ; 
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In a system without ABORT" replace 

ABORT" MODULE ERROR" 
with 

IF ." MODULE ERROR" ABORT 
THEN 



Listing One. Source code for module system; assumes that module declarations are on 
screen 81. 



SCREEN #80 

( MODULE SYSTEM - LOAD ME FIRST AFTER BOOT-UP ) 

1 HERE 1- CONSTANT MODULEMARK ( USE FOR ERASING MODULE 
WORDS ) 

2 1 +B CONSTANT MODULES ( DECLARE MODULES IN FOLLOWING 
SCREEN ) 

3 

MODULE ( BLOCK#) 

CREATE , DOES> @ LOAD ; 
LOADMAP: ( - ADDRESS) 

CREATE HERE -1 , DOES> @ ABORT" MODULE ERROR" ; 
LOADED ( ADDRESS) 
SWAP ! ; 



4 
5 
6 
7 
8 
9 
10 

11 MODULES LOAD 



HERE FENCE ! 



Listing Two. Examples of module usage. 



SCREEN #81 

( MODULE DECLARATIONS F( * EXAMPLES ) 

1 85 MODULE SCREENED I TOR 

2 100 MODULE TRIGONOMETRY 

3 120 MODULE GRAPHICS 

4 140 MODULE ROBOTICS 
5 

6 
7 



SCREEN # 100 

LOADMAP: TRIGONOMETRY ( 2XAMPLE) 

1 1 +B 3 +B THRU ( ACTUAL ;ODE ON SCREENS 101-103) 

2 LOADED 



SCREEN #120 

LOADMAP: GRAPHICS ( EXAI >LE-NESTED MODULES) 

1 TRIGONOMETRY 

2 1 +B 4 +B THRU ( ACTUAL X)DE ON SCREENS 121-124) 

3 LOADED 



I BRYTE 1 
I FORTH I 

1 INTEL I 

I 8031 1 

i micro- 
controller! 




I 
i 



FEATURES 

— FORTH-79 Standard Sub-Set 
—Access to 8031 features 
—Supports FORTH and machine 

code interrupt handlers 
—System timekeeping maintains 
time and date with leap 
year correction 
—Supports ROM-based self- 
starting applications 



COST 

1 30 page manual — $ 30.00 
8K EPROM with manual— $100.00 

Postage paid in North America. 
Inquire for license or quantity pricing. 



% Bryte Computers, Inc. 

P.O. Box 46, Augusta, ME 04330 
| (207) 547-3218 
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1987 FORTH 

NATIONAL CONVENTION 

JERRY SHIFRIN - MCLEAN, VIRGINIA 



T 

Ahe Forth Interest Group (FIG) held its 
ninth annual convention on November 13- 
14, the day after the second ANS Forth 
standards meeting, in San Jose, California. 
This is the first FIG convention I've at- 
tended, and I found it to be another enjoy- 
able Forth experience. 

The theme was the "Evolution of 
Forth." Ironically, a number of people 
seemed concerned with whether or not 
Forth was dying. In the Forth philosophy 
session, Alan Furman pointed out that it's 
difficult to convince people you have a 
better mousetrap (Forth) so they'll beat a 
path to your door, when the neighboring 
house (C) has a freeway running through it! 
Several other speakers seemed to echo this 
concern. In a response of sorts, Chuck 
Moore pointed out that it really doesn't 
matter if a lot of people are using Forth, or 
even if anyone else is, since he can improve 
his own productivity with it 

This is not to imply that the meeting was 
downbeat — there were numerous discus- 
sions on new and exciting developments in 
the Forth world: new Forth chips, new 
implementations, new books, and many 
new applications. 

Friday 

Several sessions were dedicated to the 
history of Forth, with presentations from 
many of its pioneers: Chuck Moore, Eliza- 
beth Rather, Bill Ragsdale, Kim Harris, 
and so on. In this paper, I'll only comment 
on the technical sessions. 

Charles Johnson gave an interesting 
talk on their MISC (Minimal Instruction 
Set Computer) chip, which is still in devel- 



opment. It seems to be an inexpensive 
implementation of a Novix-like architec- 
ture. So far, the MISC chip has only been 
run in simulation. 

I found the philosophy panel discussion 
to be the highlight of the conference. This 
included Wil Baden (who showed up in his 
philosopher's robes), Glen Haydon, Chuck 
Moore, Alan Furman, and Howard 
Pearlmutter. One of the main themes of this 
discussion was the "less is more" idea, that 
we should return to minimal Forth systems. 
Wil Baden described some of the current 
implementations as "garbage pail Forths," 
as in garbage pail pizza (with everything). 
Glen Haydon pointed out that Forth pro- 
grammers need to decide whether they 
want to be free spirits or professionals, 
whether Forth is their vocation or 
avocation, and to act accordingly. Howard 
Pearlmutter "performed" (the only re- 
motely appropriate verb) a metaphor on 
Forth. Variously entitled "Four Thoughts," 
"Forethoughts," and "Forth Oughts," he 
described Forth as a tree with its roots in dirt 
and sand (silicon) and it leaves and 
branches reaching out to the sunshine 
(people). He noted that Forth allows us to 
get close to the silicon, but that we should 
pay more attention to the users. 

Friday wrapped up with a "Point/ 
Counterpoint" discussion (renamed to 
"Count, Pointer, Count") with Mitch Bra- 
dley, Mike Perry, and Martin Tracy. 

Saturday 

Saturday continued the oral history of 
Forth with presentations from the fig- 
FORTH and F83 implementation teams. 



Guy Kelly gave a history of the Forth-83 
Standard. 

George Nichols gave a presentation on 
their NOVDC-based PC-RISC system, run- 
ning multiple Novix co-processors in an 
IBM PC. 

Along with Martin Tracy, Bob Smith, 
and Larry Forsley, I participated in a panel 
discussion on the ANS Forth effort. This 
wasn't a terribly crowded session, but the 
response seemed positive overall. People 
were happy that the effort was underway; 
they approved of using the Forth-83 Stan- 
dard as the basis; and were mainly con- 
cerned that the standard include some op- 
tional extensions, floating point being 
mentioned most often. When introduced, 
the ANS Forth members received what can 
only be described as a smattering of ap- 
plause. 

Gary Feierbach described their Super-8 
system, optimized for Forth and including 
Forth in ROM. It directly executes next, 
DOCOL, and EXIT in a single instruction 
(though each instruction requires multiple 
machine cycles). The chip is expected to 
sell for $7 in single unit quantity. It supports 
a 64K program space and a 64K data space. 
The Zilog development board costs $88 
and the Inner Access ROM costs $65. The 
processor has an effective cycle time of 10 
MHz. 

There was a well-attended panel discus- 
sion on the GEnie Forth service. Dennis 
Ruffer, Scott Squires, Marlin Ouverson, 
and Lori Chavez described various aspects 
of the available facilities. Alan Furman 
described the user interface as "technologi- 
cally nostalgic." 
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The annual meeting noted the resigna- 
tions of Thea Martin and Kim Harris from 
the FIG Board of Directors, the continu- 
ance of Robert Reiling and Martin Tracy, 
the re-election of John Hall, and the elec- 
tion of Wil Baden, Bob Smith, Dennis 
Ruffer, and Terri Sutton. 

Other sessions included a FIG Chapters 
breakfast, a second talk on the MISC chip, 
a talk from Phil Burk on HMSL (an object- 
oriented, Forth-based music language), 
Glen Haydon on the 32-bit WISC engine, 
Lori Chavez on the Unstable Flying Wing 
Project, a roundtable on 32-bit applica- 
tions, and one on Forth in education. 

Another highlight of the conference 
was Chuck Moore's "Fireside Chat." 

The conference was capped off with an 
after-dinner speech by Dr. Robert Trelease 
on "Brains, AI, and Forth." He gave an 
overview of current Forth activity in AI and 
expert systems (see his article in the Octo- 
ber 1987 issue of AI Expert), and went on to 
discuss the current state of affairs in under- 
standing how the brain operates, and neural 
network technology. 

Notes 

As always, there is at least as much 
going on outside the sessions as there is on 
the inside. Here are some of the notes I 
made: 

There isanew Forth BBS for our friends 
to the North: a Vancouver, British Colum- 
bia board at 604-434-5886. Zafar Essak is 
the operator. 

Martin Tracy has begun developing an 
iconic (picture-oriented) programming 
language. Where does he find the time? 
Martin's next£>r. Dobbs column is sched- 
uled for December 1987, and should in- 
clude some of the material from the ECFB 
discussion of strings. 

Gary Betts mentioned that his company 
(Saba Technologies) is planning to upgrade 
their inexpensive document scanner (pro- 
grammed in Forth) to take advantage of the 
Novix chip. 

I saw an actual demonstration of Har- 
vard Softworks' and Softmills' GigaForth. 
It looked like a powerful, well-thought-out 
implementation. First customer shipment 
is scheduled for January 1988. It sells for 
$245 as an add-on to HS/Forth ($395). 
Another add-on, Gigaloom and Rosetta, is 
still in development; this is intended to 



allow programmers to develop and link 
modules from a variety of languages within 
a single environment 

HyperForth! The current rage in the 
personal computer arena is something 
called hypertext, a way of scattering your 
data all over, but still being able to retrieve 
it quickly. Well, the inventor of hypertext, 
Ted Nelson, has been involved with the 
Forth community for many years. Bob 
LaQuey has concluded that they are 
kindred systems, and has begun designing 
an integration of the two concepts into a 
single system . (He will presented a paper on 
thisatFORML.) 

A new book of interest from MIT Press: 
Cellular Automata Machines by Tommaso 
Toffoli and Norman Margolus ($30, 260 
pages). Presents the theory of cellular auto- 
mata and develops a language for describ- 
ing cellular automata rules, CAM Forth, 
which has been implemented to support a 
CAM board in an IBM PC. 

Dr. C. H. Ting's Offete Enterprises has 
a few new additions to its catalog of Forth 
material: Forth Notebook, Volume II ($25: 
ROMable F83, 8086 and 68000 disassem- 
blers, parallel processing, array processing, 
neural network simulation, etc.); F83 Ref- 
erence Manual ($10); the Afore onNC4000 
series is now up to 5 volumes (total cost for 
the series is $70). 

Guy Kelly is selling his portable Forth 
editor for $20, which includes his PD PC- 
Forth implementation and support for LMI, 
F83, MVP, UniForth, and his own system. 

An Australian Forth Symposium is 
scheduled for May 19-20, 1988 at the NSW 
Institute of Technology. Chuck Moore will 
be the keynote speaker. Contact Jose Al- 
fonso, NSWIT, P. O. Box 123, Broadway 
NSW 2007. 

As some of you might have noticed 
recently, some of the mail sent to the Insti- 
tute for Applied Forth Research (publisher 
of The Journal of Forth Application and 
Research, or JFAR) was returned without 
explanation or with something along the 
lines of "moved, left no forwarding ad- 
dress." Well, it turns out that they did move, 
but the post office decided not to forward 
their mail. Larry Forsley reports this wasn't 
discovered for several weeks — not until 
someone handed him an envelope with the 
post office's practical joke on it According 
to Larry, this problem has been resolved, 



but here are the correct addresses: 

For subscriptions: Total Information, 
844 Dewey Avenue, Rochester, NY 
14613. (Total Information is one of those 
subscription fulfillment services.) The new 
address for The Institute for Applied Forth 
Research is: 70 Elmwood Avenue, Roch- 
ester, NY 14611. 

Manuscript submissions should be 
mailed to: Jim Basile, 17 Target Rock 
Drive, Huntington, NY 11743. (Jim is the 
new Editor-in-Chief of JFAR. Larry For- 
sley is the publisher, Mahlon Kelly is the 
US Editor, and Hans Nieuwenhuyzen is the 
European Editor. 

I don'tknow if it's the hacker mentality, 
but there seemed to be hostility directed 
towards some of the Forth vendors, mainly 
FORTH, Inc. There appeared to be some 
gloating that the public-domain, Laxen & 
Perry F83 implementation had forced 
Forth vendors to provide more complete 
systems. Even if true, I found the attitude 
less than attractive. 

Computer Literacy Bookstore and 
Fry 's Electronics can almost justify the trip 
to San Jose on their own. Computer Liter- 
acy has, by far, the best selection of com- 
puter books I've ever come across (in D.C., 
try Reiter's for one almost as good). Fry's 
is a supermarket with food, audio/video, 
computers, software, and electronics parts. 
Take a shopping cart and your credit card. 



Jerry Shifrin is a prolific talent; see 
more of his work in this issue's "ANS 
Forth Meeting Notes." 




The Cuolutlon of Forth: Forth Is entering Its second decode; 
where will It be offer ten more years? lit this year's Forth 
Notional Conuentlon, learn the enpert opinions of market 
leaders, implementors of Forth on the new geaeration of 
machines, respected Forth theorists, and programmers of 
significant Forth applications. Should you prepare, or Just 
despair? Find out houi Forth's future could affect uou! 
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NOVEMBER 1987 

ANS FORTH 

MEETING NOTES 

JERRY SHIFRIN - MCLEAN, VIRGINIA 



TC Meeting 1 

The second meeting of the ANS Forth 
Technical Committee (TC) was held on 
November 11-12, 1987 in San Jose, Cali- 
fornia. Local arrangements were provided 
by Bill Ragsdale and the Forth Interest 
Group. The TC still does not have an offi- 
cial Chair and Vice-chair. Some candi- 
dates for these positions were unable to get 
approval from their companies for suffi- 
cient time away from work. Asa result, the 
meeting was officiated by Elizabeth 
Rather as Acting Chair, with Martin Tracy 
as Acting Secretary. The Chair and Vice- 
Chair positions are still open if anyone 
wishes to volunteer. ANSI/CBEMA de- 
cided not to appoint permanent officers 
until they had more people to choose from . 
At the moment, candidates for Chair are 
Charlie Keane of PPI and John Dorband of 
GSFC. Ray Duncan is the only candidate 
for Vice-chair. 

Most of the attendees from the August 
meeting were present here with the excep- 
tion of Charlie Keane, David Petty, and 
the ANSI/CBEMA folks. New to this 
meeting were Wil Baden, Andy Kobziar 
of NCR (user), John Gotwals of Purdue 
(user), and John Stevenson (user). Attend- 
ing as an observer was Dennis Ruffer 
(GEnie SYSOP) from Allen Test Prod- 
ucts. 

We received a letter from our CBEMA 
liaison, John Kurihara, congratulating us 
on the quality of our efforts to date and 
complimenting Ray Duncan on the min- 
utes of the first meeting. 

The TC approved the meeting sched- 
ule without objection. The next meeting is 
scheduled for February 10-12, 1988 in 



Southern California, to be hosted by Eliza- 
beth Rather. Subsequent meetings are 
planned for Rochester, New York (Larry 
Forsley); Beaverton, Oregon (Gary Betts); 
and Washington, DC (Jim Rash). Chuck 
Moore suggested that meeting hosts at- 
tempt to find sites in surroundings more 
pleasant than hotels. Ms. Rather agreed to 
look into holding the February meeting on 
Catalina Island. Larry Forsley said he was 
investigating the availability of a mountain 
retreat Meeting plans will be announced 
when available. Anyone interested in at- 
tending should contact the appropriate 
meeting host for information. 



I t's to your advantage that 
your products can be 
stamped "ANSI Forth" 



A form for technical proposals was 
discussed. The documentation committee 
was directed to add a cover sheet with 
detailed instructions, and to remove any 
fields intended for internal TC usage. This 
was to have been circulated and voted on by 
mail ballot within two weeks of the meet- 
ing. 

Next was a report from the Research 
Committee on current Forth practices. A 
total of 274 surveys were mailed out, but 
only 24 responses were received. Of these, 
only 14 indicated 200 or more users (re- 
quired for consideration of "common us- 
age," by a previous vote). The results from 
this survey were rather interesting: respon- 
dees who differed from the Forth-83 stan- 
dard did so in the areas of word addressing, 



32-bits, lack of floored division, and lack of 
disk commands. Most respondees offered 
extensions in the areas of strings, multi- 
tasking, graphics, floating point, etc. Sug- 
gestions from respondees varied widely, 
but a number of people thought the stan- 
dard should be layered (allow optional, 
standard extensions), and that it needed to 
deal with 32 bits, floating point, OS inter- 
face, strings, graphics, and ROMability. 
The Research Committee was directed to 
make another attempt to obtain responses 
from "major" vendors who had not re- 
turned their questionnaires. 

The Technical Subcommittee (TSC) 
next reported on areas of consensus and 
controversy with respect to the Forth-83 
Standard. Surprisingly, there were a few 
areas where the TSC was in unanimity on 
keeping certain items from the 83 standard: 

DUP, DROP, OVER, SWAP, >R, R>, AND, 

OR, XOR, +, -, abs (abs was later found 
to be controversial), 0=, 0<, =, U<, @, !, 
and the ASCII collating sequence. Every- 
thing else in the 83 standard had either 
major or minor controversy associated with 
it. 

Elizabeth Rather read letters from Larry 
Forsley and Guy Kelly on the IEEE Forth 
Standard activity. We haven't received 
official word yet, but it appears that the 
IEEE Forth proposal has been withdrawn in 
acknowledgment of the openness of the 
ANSI/CBEMA effort. One major benefit 
from this controversy is that members of 
the IEEE Computer Society may attend 
ANS Forth TC meetings without paying 
any fees. Since Computer Society member- 
ship costs about $20, there is a clear advan- 
tage to this alternative approach. 
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The TC then had a fairly lengthy dis- 
cussion on the Technical Proposal proc- 
ess. Briefly, proposals are to be sent to the 
secretary (Martin Tracy at FORTH Inc.). 
The secretary will pre-filter proposals, re- 
turning any in obvious need of work. He 
will distribute remaining proposals to the 
TSC, which will return them to the TC 
with a recommendation to adopt, reject, 
return for more information, or table. If 
the TC agrees to adopt, it would be sent to 
the Documentation subcommittee — 
who will develop the final language — 
then to the TC, who will either ratify or 
return it. The TC voted (14-0) to allow a 
proposal to be tabled indefinitely. The 
secretary was directed to maintain a data- 
base (in a format of his choice) of all 
proposals. 

I pointed out a problem, in that Tech- 
nical Proposals were supposed to be sub- 
mitted in the form of updates to the Basis 
document (this is the Forth-83 standard 
initially, but it evolves into the draft stan- 
dard as updates are made). However, we 
are not allowed (by CBEMA) to make the 
Basis document publicly available. The 
sense of the TC was that, initially, people 
should submit proposals as updates to the 
Forth-83 Standard. Later, they will have 
to develop their proposals in conjunction 
with a TC member. 

The TC voted (12-3) to maintain a 
public status list of all proposals. I will be 
maintaining this on the MCI Mail ANS 
Forth Bulletin Board. The TC also voted 
(13-2) to similarly publish all proposal 
abstracts received on electronic media. 

The TC then adjourned to allow for 
subcommittee meetings. 

TSC Meeting 

The TSC (Technical Ad Hoc Sub- 
committee) immediately convened to 
begin deliberations. Greg Bailey was still 
Acting Chair and Martin Tracy continued 
as Acting Secretary. 

The first order of business was to dis- 
cuss the process for dealing with Techni- 
cal Proposals within the TSC. The final 
conclusion, to the best of my understand- 
ing, is that proposals found to be contro- 
versial will be directed to a "magnet" 
assigned to each major area of contro- 
versy. The magnet will collect comments 
from the entire TC and circulate them for 



review. The goal here is to allow work to 
continue expeditiously outside formal TC 
meetings. Non-controversial proposals go 
directly to the TC with a TSC recommenda- 
tion. 

There were discussions on word or cell 
size (non-controversial) and signed divi- 
sion (controversial). 

Next were discussions on voting rights. 
I have two conflicting notes here: one says 
that only formal members of the TC (in- 
cluding alternates and observers) may vote 
on TSC issues; the other states that, since 
the TSC is a totally ad hoc committee, 
anyone who attends can vote. I'll clarify 
this ruling when/if I can. 

There was a discussion on getting a TSC 
secretary. Martin Tracy cannot continue, 
since he is too busy as the TC secretary. No 
one else cared to volunteer. Don Colburn 
said he'd do it as a last resort, but that he'd 
make us pay for it! (Don, who was the 
secretary of the Forth Standards Team, felt 
he had suffered enough.) Finally, I agreed 
to take on the work, but I cautioned the 
group that I would not be able to attend all 
of the meetings. 

We agreed that MCI Mail was not a 
suitable facility for holding TSC discus- 
sions between meetings (MCI Mail Bulle- 
tin Boards are mainly oriented towards 
posting announcements). We then dis- 
cussed the advantages of GEnie vs. Com- 
puserve. Don Colburn offered to make 
available a section of his Compuserve Forth 
conference, and Dennis Ruffer offered to 
do the same on FTG's GEnie Forth confer- 
ence. 

There was discussion and vote on Eliza- 
beth Rather' s cell-size proposal (eliminat- 
ing references to 16-bit words). This was 
found to be non-controversial by a vote of 
17-2-1-0 (strongly in favor, prefer inclu- 
sion, prefer exclusion, strongly in favor of 
exclusion) and was referred to the TC. From 
the vote, I conclude that at this point anyone 
present was eligible to vote. 

As secretary, Martin Tracy had received 
four proposals to date. Naturally, none of 
these meet the requirements for a Technical 
Proposal (which has yet to be finalized). 
Two of these (from Wil Baden and Richard 
Gray) were declared to be comments or 
advice, and were to be returned to their 
originators, requesting that they state them 
as proposals. 



One of the proposals, from Roy Martens 
of Mountain View Press, consisted of the 
following hand-written note: "7/1/87, 
Elizabeth — We submit the enclosed docu- 
ment, "Forth Floating Point" by Philip J. 
Koopman, Jr., MVP-FORTH Series, Vol- 
ume 3, revised, to The Technical Commit- 
tee for consideration as the standard for 
integer and floating point math. It conforms 
to IEEE Floating Point Standard (Task 
P754) short. There are no restrictions on its 
use. Sincerely, Roy Martens". This was 
attached to a copy of their MVP-FORTH 
floating-point documentation. My notes 
fail me here, but I believe it was sent back 
for rework. 

The final proposal (so far) was on the 
treatment of DO loops with equal arguments 
(n DUP DO) from Lee Brotzman of Uni- 
Forth. This was discussed at some length. 
Lee proposed that such loops should run 
zero times. Some people felt the proposal 
should be returned, since it didn't meet our 
(non-documented) proposal format. Don 
Colburn felt it should be returned for clari- 
fication in the case of +LOOP structures (he 
thought it didn't work as expected in such 
cases). Chuck Moore opposed it for histori- 
cal reasons, stating that DO was intended to 
always run at least once. Ultimately, the 
proposal was declared controversial and 
referred to the DO loop magnet, Ray Dun- 
can, for further analysis and comment. 

From the TSC survey, Greg Bailey put 
together a list of 14 controversial areas. 
Members of the TSC (except the secretary) 
were assigned to be magnets for the individ- 
ual areas. Members of the TSC were to write 
one paragraph on each of the controversial 
subareas. (See the accompanying list of 
magnets and their areas.) 

TC Meeting 2 

I had to leave for a few hours to do some 
training for my company's field personnel 
and missed some of the discussion, but 
here's what I understand to have occurred: 

The TSC unanimously agreed to bring a 
cell-size proposal (removing all references 
to 16-bit words) to the TC for ratification. 
The FIG representative, Bill Ragsdale, in- 
voked the two- week rule, which allows any 
member to put off a vote for two weeks in 
order to allow sufficient time for review. 
This apparently created some discord, and 
someone moved to disband the TSC. The 
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TC voted to continue the TSC and every- 
thing seemed to be smoothed over by the 
time I was able to rejoin the proceedings. 
No one said this was going to be easy! 

The Research subcommittee was di- 
rected to publish the Forth vendor list on 
MCI Mail. The Logistics subcommittee 
was requested to attempt to supply com- 
puter and copying facilities at each TC 
meeting. The Vocabulary Representative 
was directed to research and resolve any 
conflicts between ANSI definitions and 
those used in the Basis document. Eliza- 
beth Rather agreed to clarify the question of 
guests with CBEMA. 

The TC then adjourned to the bar. 

Summary and Comments 

Well, it's been over a year since the first 
meeting (October, 1986) organized to de- 
velop an ANS Forth standard. Under- 
standably, I think, some of the members 
feel a fair amount of frustration at the 
amount of energy being dedicated to ad- 
ministrivia. There was a strong desire to 
show some small amount of progress. The 
first such proposal was to send the non- 
controversial list of words (DUP, SWAP, 
etc.) to the TC for ratification, but it was 
pointed out that this was a no-op, since it 
didn't involve a change to the basis docu- 
ment. Next was an attempt to solve the 
floored division problem, proposing that 
division operators with remainders (MOD, / 
MOD, */MOD) should only work on un- 
signed values — this was declared contro- 
versial. Finally, we had unanimous agree- 
ment on the cell-size proposal, but this was 
tabled due to the invocation of the two- 
week rule. Even if no one said this would be 
easy, neither did anyone tell us it would be 
impossible! 

The next meeting is scheduled to take 
three days, and I think there's a fair chance 
it will be more productive. Also, we will be 
returning mail ballots on a couple of key 
issues: Technical Proposal format, and cell 
size. There is visible progress from this 
effort, but it's painfully slow. 

The TC directed that members present 
our current status and request input from 
both the forthcoming FIG convention and 
the FORML meetings. Additionally, the 
research committee was directed to take 
another shot at gathering vendor input. 



Folks, we have a serious effort here to reach 
out and obtain guidance from the entire 
Forth community. My sense is that the TC 
is determined to involve as many people as 
possible, to go the extra mile in gathering 
input, and to give serious consideration to 
everyone's points of view. With the way 
this effort is proceeding, I don't see how 
anyone has grounds for complaint if they 
end up with a standard they don't like. 

The TC is not a set of finite-state auto- 
mata. We don't speak with one voice. Some 
of us (well, me) don't even stay consistent 
from day to day. By its nature, Forth seems 
to attract people with a strong sense of 
individualism and creativity. Still, I sense 
some general areas of agreement: opening 
up the process, avoiding attempts to gar- 
bage up the language, allowing for future 
extensions, and proceeding quickly to a 
draft standard we can stand behind. 

If you have a strong opinion, I encour- 
age you to get involved and join the TC. If 
you have a proposal, write it up and send it 
to the TC secretary. If you have some 
unformed thoughts on a subject, get in 
touch with one of the TC members and ask 



for help on developing a proposal. The 
greatest problem I sense is the general 
apathy of the Forth community. There are 
no automatics; you may think that some- 
thing is so obvious that it will certainly be 
changed, but that probably won't happen 
unless someone is there to champion the 
cause. If your Forth vendor is not listed 
among the TC membership, perhaps you 
should question them about it. If you are a 
Forth vendor, it's to your advantage to 
attempt to sway the committee to do things 
in such a way that your products can be 
stamped "ANSI Forth" with a minimum of 
changes to your product 

In case there's any doubt, this is not an 
official communique from the ANS Forth 
Technical Committee, only the notes of a 
non-finite-state automaton. My thanks to 
Ray Duncan for some helpful reminders 
about the meeting activity. 



Jerry Shifrin works for MCI, and is 
well known for his excellent East 
Coast Forth Board (703-442-8695). 



List of Topics and "Magnets" 



Topic 


Magnet 


Vocabularies and : 


John Stevenson 


Mass Storage (blocks and text) 


Andy Kobizar 


Loops, exit, and Termination 


Ray Duncan 


Division 


Bob Smith 


Documentation 


Gary Betts 


Testing 


Chuck Moore 


Assemblers 


Greg Bailey 


Controlled Reference Set 


Mike Nemeth 


ROMability 


Martin Tracy 


Host and File Structures 


Don Colburn 


Interpreter 


Dean Sandersen 


\ >BODY, [ M.etc. 


Charles Keane 


Numeric output 


John Gotwals 


Control, ABORT, QUIT, etc. 


Wil Baden 
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A 6502 

ASSEMBLER 

CHESTER H. PAGE - SILVER SPRING, MARYLAND 



T 

Xhe only weakness I have encountered 
in Forth is the unavailability of primitive 
subroutines, called by JSR. For example, I 
have written a floating-point routine which 
has fast multiplication and division (using 
primitives), but slow SIN and similar func- 
tions. The polynomial approximation to 
SIN is slowed by high-level looping and 
iteration. If the computation routine for 
SIN were written as a primitive, using JSR 
to call repeated multiplications as object 
code subroutines, it would be faster. 

To correct this defect, I have written a 
Forth 6502 assembler designed, not for 
long programs, but for assembling primi- 
tive words, one by one. It has provision for 
20 labels and 20 label references (per 
word); this should be sufficient, but it can 
easily be increased. This assembler is not 
computer specific; it requires only that the 
computer is 6502 based. 

Since the 6502 uses 100 - IFF hex as its 
stack area (return stack), addresses in this 
range never appear as target addresses in 
source code. I take advantage of this by 
using 101, 102, 103, etc. as the label names, 
and use the low byte to index into an array 
of label addresses. During the first pass of 
the assembly, label targets are compiled as 
label names (single-word addresses), to be 
replaced by single- word label addresses in 
the second pass. In the case of a branching 
instruction, where only one byte is to be 
compiled, the low byte of the label name is 
compiled. On the second pass, this byte will 
be replaced by the jump offset In both 
cases, the compilation address of the target 
is saved in a reference table, along with a 
flag to distinguish between branching 



commands and commands requiring an 
absolute address. When a label assignment 
is encountered, its location address is saved 
in an array of label addresses, indexed by 
the low byte of the label name. In the second 
pass, the reference table is stepped through, 
a label name is found at a compilation 
address and is converted to the correspond- 
ing label address, or the offset for a branch 
is computed and compiled. 



Why shouldn't 
extensions to the nucleus use 
primitives? 



The 6502 mnemonic words are in 
Ragsdale's form, consisting of the standard 
mnemonics suffixed by commas (to distin- 
guish, for example, between ADC as a hex 
number and ADC, as a mnemonic). Each 
mnemonic word returns a base opcode 
single-byte value and a single-precision 
number which serves as an admissibility 
key for rejection of inadmissible addressing 
modes. Roughly speaking, each addressing 
mode adds a characteristic number to the 
base value of each opcode. There are sev- 
eral exceptions; these are identified by 
special bits in the admissibility keys. 

Absolute address modes are distin- 
guished from zero-page address modes by 
examining the address given with a 
command. , x and , Y are, thus, defaulted to 
zero-page modes, but upmoded when ad- 
dresses above 200 are given ("addresses" 
between 100 and 200 are label names). 



Each mode is assigned a single-bit number 
for logical comparison with admissibility 
keys. There are two exceptional cases; the 
, Y mode and the immediate mode (#) have 
additional bits. These are used to allow 
zero-page , Y to be used with ldx, and 
STX, , and to change the opcode increment 
producedby # in thecasesof ldx, , ldy, , 
CPX, ,andCPY,. 

Screen #3 gives the mode identifica- 
tions, keys, and effects on opcodes. Screen 
#9 gives JSR, and the special words , , 
andC, , which provide for compiling data 
with address labels; also the time and space 
savers A and GONEXT. Screen #11 gives 
illustrative examples. 

JSRs within a word are handled by la- 
bels; JSRs to other words (primitives end- 
ing in RTS) are supplied with target ad- 
dresses by 

x <name> >BODY JSR, 
or 

" <name> 

JSRs to entry points in ROM are sup- 
plied with addresses, e.g., in the Apple, 
FC58 JSR, to clear the screen. 

Test Results 

My 13-digit-precision, floating-point 
system required 180 milliseconds to 
compute FS in. Simply replacing all stack 
manipulations with primitives reduced 
this time to 100 ms. Replacing the high- 
level loop evaluation of the polynomial ap- 
proximation with a primitive (collection of 
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ASSEMBLER SCR ** 1 

\ Assembly sample 27JUN87CHP 

1 \ Conventional -format 

2 \ LDA ttO 

3 \ LDY tt*80 

4 \ LI STA 300, Y 

5 \ DEY 

6 \ BPL LI 

7 \ JMP NEXT 
8 

9 \ Format for this assembler 

10 \ ASSEMBLE TEST 

11 \ # LDA, 80 # LDY, 101 300 ,Y STA, DEY, 101 BPL, G ON EXT 

12 \ END 
13 

14 — > 
15 



ASSEMBLER SCR tt 2 

\ 29JUN87CHP 

1 HEX 

2 VOCABULARY ASSEMBLER 

3 ASSEMBLER DEFINITIONS 

4 VARIABLE MODE 

5 VARIABLE MODE. KEY 

6 14 ARRAY LABEL. TABLE \ Provide -for 20 labels, and 

7 CREATE REF. TABLE , , 38 ALLOT \ for 20 targets 

8 VARIABLE REF. POINTER 

9 — > 
10 

1 1 
12 
13 
14 
15 



ASSEMBLER SCR tt 3 
\ Modes 1 9JUN87CHP 



1 






ZP 





MODE 


MODE. KEY ! 


5 


\ 


Adds 


4 to 


opcode 


2 






,x 


1 


MODE 


1 MODE. KEY ! 


5 


\ 


Adds 


14 


(zero page,X) 


3 






,Y 


2 


MODE 


202 MODE. KEY 


'■ 5 


\ 


Adds 


14 - 


LDX , STX , on 1 y 


4 






X) 


3 


MODE 


4 MODE. KEY ! 


5 


\ 


Adds 





<ZP,X> 


5 






)Y 


4 


MODE 


8 MODE. KEY ! 


5 


\ 


Adds 


10 


<ZP> ,Y 


6 






tt 


5 


MODE 


110 MODE. KEY 


i . 

> 


\ 


Adds 


8 


Immed i ate 


7 






,A 


6 


MODE 


20 MODE. KEY 1 


5 


\ 


Adds 


8 


Accumu 1 ator 


8 






> 


? 


MODE 


40 MODE. KEY 




\ 


Adds 


2C - 


Indirect JMPs only 


9 


\ 




8 










Adds 


c - 


Absolute address 


10 


\ 




9 










Adds 


ic - 


Absol u te ,X 


1 1 








A 










Adds 


IS - 


Absol ute ,Y 



12 

13 CREATE ADD. TABLE \ Indexed by mode value 

14 1404 , 0014 , 0810 , 2C08 , 1C0C , 18 C, 
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ASSEMBLER SCR # 4 

\ A is a given address 24JUN37CHP 

1 \ C is address returned by opcode mnemonic 

2 : RANGE. CHECK < A C A C) OVER 100 U< 0= \ True, absolute addr 

3 IF MODE 3 DUP 3 < IF DROP 8 MODE +! \ modify ZP modes 

4 MODE. KEY 3 202 = IF 200 MODE. KEY ! THEN \ Absolute.Y 

5 ELSE 5 < ABORT" Illegal Opcode" THEN THEN ; 
6 

7 : CODE. CHECK < C C) 

8 DUP 1+3 \ Adm issibility key 

9 MODE. KEY 3 AND ?DUP \ Test mode 

10 IF DUP FF AND ABORT" Illegal Opcode" 

11 DUP 100 = IF DROP -2 MODE +! \ For IMMEDIATE and CPX , 

12 \ CPY, LDX, LDY, STX, convert to add 

13 ELSE 200 = 0= ABORT" Code error" \ Not LDX ZP,Y 

14 THEN THEN j 

15 — > 

ASSEMBLER SCR # 5 

\ 1 9JUN87CHP 

1 : LABEL. SAVE FF AND DUP LABEL. TABLE 3 \ Not new label? 

2 ABORT" Duplicate label" 

3 HERE SWAP LABEL. TABLE ! ; \ Save label address 
4 

5 : LCI SP3 SO 4 - = IF SWAP LABEL. SAVE THEN ; 

6 : LC2 SP3 SO 6 - = IF ROT LABEL. SAVE THEN ; 
7 

8 : COMPILE. ADDRESS < A ) 

9 DUP FFOO AND DUP 100 = \ Is it a label? 

10 IF HERE REF. POINTER 3 OVER C! \ Full address label needed 

11 1+ ! \ Save compilation address 

12 3 REF. POINTER +! \ Advance for next entry 

1 3 THEN 

14 IF , ELSE C, THEN ; \ Compile absolute address or ZP byte 

15 — > 

ASSEMBLER SCR # 6 

\ CREATE operators for defining mnemonics 1 9JUN87CHP 

1 \ Multimode opcodes 

2 : M/CPU CREATE 2 ALLOT C, , D0ES> LC2 RANGE . CHECK 

3 CODE. CHECK 

4 C3 MODE C3 ADD. TABLE + C3 + C , \ Adjust opcode 

5 COMPILE. ADDRESS ZP ; 
6 

7 \ Single-mode opcodes 

8 : CPU CREATE 2 ALLOT C, D0ES> LCI C3 C , ZP ; 
9 

10 : BRANCHES CREATE 2 ALLOT C, DOES> LC2 

11 C3 C, C, 

12 HERE 1- REF. POINTER 3 1 OVER C! \ Branch offset needed 

13 1+ ! \ Save compilation address 

14 3 REF. POINTER + ! ZP ; \ Advance for next entry 

15 — > 
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ASSEMBLER SCR « 7 

\ Second pass replaces stored label targets 19JUN87CHP 

1 : SECOND. PASS 

2 BEGIN -3 REF . POINTER +! REF. POINTER 3 DUP 1+ 3 

3 \ Find label compilation address 

4 DUP WHILE DUP C3 DUP LABEL. TABLE 3 \ Label address 

5 3 ROLL C3 \ Ulor d-or-byte flag 

6 IF 2 PICK - 1- \ Offset 

7 DUP ABS 7F > 

8 IF DROP CR ." Branch to " 100 + . ." is too -far" SP! QUIT 

9 THEN ROT C! 

10 ELSE ROT ! 

11 THEN DROP REPEAT DROP DROP ; 
12 

13 : CLEAR. TABLES B 1 DO I LABEL. TABLE ! LOOP 

14 REF. TABLE 3 + REF. POINTER ! ; 

15 --> 



ASSEMBLER SCR # 8 

\ Definitions of mnemonics 27JUN87CHP 

1 0062 61 M/CPU ADC, 0062 21 M/CPU AND, 0062 CI M/CPU CMP, 

2 0062 41 M/CPU EOR, 0062 01 M/CPU ORA, 0062 El M/CPU SBC , 

3 0062 81 M/CPU STA , 0062 Al M/CPU LDA, 

4 005E 02 M/CPU ASL, 005E 42 M/CPU LSR, 

5 005E 22 M/CPU ROL , 005E 62 M/CPU ROR, 

6 007E C2 M/CPU DEC, 007E E2 M/CPU INC, 

7 016F E0 M/CPU CPX, 016F CO M/CPU CPY , 

8 036D A2 M/CPU LDX , 016E AO M/CPU LDY , 017D 82 M/CPU STX , 

9 007E 80 M/CPU STY, 007F 20 M/CPU BIT, 003F 40 M/CPU JMP, 

10 00 CPU BRK, 18 CPU CLC, D8 CPU CLD, 58 CPU CLI , B8 CPU CLV, 

11 CA CPU DEX, 88 CPU DEY , E8 CPU I NX, C8 CPU I NY, EA CPU NOP, 

12 48 CPU PHA, 08 CPU PHP, 68 CPU PLA, 28 CPU PLP , 40 CPU RTI , 

13 60 CPU RTS, 38 CPU SEC, F8 CPU SED, 78 CPU SEI , AA CPU TAX, 

14 A8 CPU TAY, BA CPU TSX , 8A CPU TXA , 9A CPU TXS , 98 CPU TYA , 

15 — > 



ASSEMBLER SCR # 9 

\ More mnemonics and special definitions 27JUN87CHP 

1 90 BRANCHES BCC, B0 BRANCHES BCS , F0 BRANCHES BEQ, 

2 30 BRANCHES BMI , DO BRANCHES BNE , 10 BRANCHES BPL , 

3 50 BRANCHES BVC , 70 BRANCHES BUS, 

4 : JSR, SP3 SO 4 - = IF SWAP LABEL. SAVE THEN DUP 20 C , , 

5 200 U< IF REF. POINTER 3 DUP SWAP C! \ Address is a label 

6 1+ HERE 2- SWAP ! \ Save compilation address 

7 3 REF. POINTER +! THEN ; 
8 

9 : SP3 SO 4 - = IF SWAP LABEL. SAVE THEN , ; 

10 : C,, SP3 SO 4 - = IF SWAP LABEL . SAVE THEN C, ; 

11 : END SECOND. PASS CURRENT 3 CONTEXT ! ?EXEC ?CSP ; IMMEDIATE 

12 : GONEXT [ ' ] NEXT >B0DY JMP, ; 

13 : * ' >BODY JSR, ; \ Useful in composite primitives 

14 \ e . g . , ASSEMBLE PROGRAM " A " B * C GONEXT END 

15 — > 
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subroutine jumps) further reduced the time 
to 74 ms. 

These results raise a philosophical 
question: Does a liberal use of primitives 
really affect portability? Since the nucleus 
of Forth depends on primitives, why 
shouldn't the extension of the nucleus to 
double-precision or floating-point arith- 
metic also use primitives? It doesn't seem 
sensible to saddle floating-point users with 
slow routines to satisfy an aesthetic pride in 
colon definitions. Applications using either 
integer or floating-point arithmetic can be 
written in completely portable, high-level 
definitions. 



Note on Using the Assembler 

The simplest way to use a Forth assem- 
bler is to append it to the nucleus dictionary 
and then assemble a desired application. 
This leaves the assembler vocabulary in 
memory between the nucleus and the appli- 
cation. Each compiled application saved to 
disk includes the entire assembler; this 
wastes disk space as well as fast-access 
memory. 

This waste can be avoided by a simple 
routine. When the Forth nucleus is booted, 
note the name of its last word, and the 
normal next-word location. Call this ad- 
dress <dp>. (Enter "here . ")Leavespace 



for the application by entering "n ALLOT" 
where n is, say, 5000. Then load the assem- 
bler and enter "<dp> DP !" to restore the 
dictionary pointer to follow the nucleus 
vocabulary. Assembling the application 
will locate the application vocabulary as if 
it were a normal continuation of the nu- 
cleus vocabulary. After the application has 
been assembled, the assembler vocabulary 
can be eliminated by linking the first word 
of the application directly to the last word 
of the nucleus, by entering 

' <last nucleus name> >NAME 
* <first application name> 
>LINK ! 



ASSEMBLER SCR 10 
\ Assembler concluded 19JUN37CHP 
1 

2 FORTH DEFINITIONS 
3 

4 : PRIM -2 ALLOT HERE 2+ , ; 
5 

6 : ASSEMBLE ?EXEC CREATE ASSEMBLER PRIM 

7 C ASSEMBLER ] CLEAR. TABLES ZP ! CSP ; 
8 

9 IMMEDIATE 
10 

11 DECIMAL 

12 

13 

14 

15 



ASSEMBLER SCR tt 11 

\ SAMPLES 27JUN37CHP 

1 HEX 

2 ASSEMBLE (TEST) tt LDA, 80 # LDY , 101 300 ,Y ST A , DEY , 

3 101 BPL , RTS, END 

4 ASSEMBLE TEST " <TEST) GONEXT END 
5 

6 ASSEMBLE TRY 5 STX , 1 * LDX , 101 INX, 7 « CPX , 101 BNE , 

7 * <TEST) 5 LDX, GONEXT END 
8 

9 ASSEMBLE HOME FC58 JSR, GONEXT END 
10 

11 ASSEMBLE THIS 3 # LDY, 101 102 ,Y LDA, CLC , 103 ,Y ADC, 

12 102 ,Y STA, DEY, 101 BPL, I NY , GONEXT 102 1 C,, 

13 2 C, 3 C, 4 C, 103 20 C,, 30 C, 40 C, 50 C, END 

14 \ THIS has 2-label entries, and data labelling 

15 DECIMAL 
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F83,fig-FORTH 

VECTORED EXECUTION 

& A FULL-SCREEN EDITOR 



RICHARD E. HASKELL - ROCHESTER, MICHIGAN 
ANDREW MCKEWAN - LAKEVILLE, MICHIGAN 



^^ctored execution is a useful tool for 
directing the flow of control in a program. 
Various forms of the CASE statement are 
often used for this purpose. We have found 
that different types of jump tables are often 
more convenient, and execute faster, than a 
corresponding CASE statement. In this 
paper, we will present three different types 
of jump tables: a simple jump tablecontain- 
ing consecutive execution addresses, a 
jump table containing both key codes and 
execution addresses, and a jump table in 
which the key codes can be computed using 
any Forth statement. This last form of the 
jump table will be illustrated by anF83 full- 
screen editor. Each of the jump tables will 
be created using a defining word. Both F83 
and fig-FORTH versions of these defining 
words will be given. 

A Simple Jump Table 

Figure One shows the structure of a 
jump table called do . key that contains the 
CFAs of five Forth words. The number of 
entries in the jump table is stored as the first 
element in the parameter field. When 
do.key is called with a value of - 4 on the 
stack, the corresponding word in the jump 
table will be executed. For example, 2 
do . key will cause 2 word to be executed. 
The jump table is created by using the 
defining word JUMP . TABLE in the fol- 
lowing form: 

<#entries> JUMP. TABLE <name> 
<0word> <lword> . . . 

For example, the jump table in Figure 
One is created by the statement 



5 JUMP. TABLE do . key 

Oword lword 2word 3word 4word 

The colon definition of JUMP . table 
in F83 is 

: JUMP . TABLE ( - ) 

CREATE DUP , ?DO * , LOOP 

does> ( n pfa -- ) 

SWAP 1+ SWAP 2DUP @ > 
IF 2 DROP 

ELSE SWAP 2* + PERFORM 
THEN ; 



powerful method of 
defining jump tables. 



The corresponding definition in fig- 
FORTH is: 

: JUMP . TABLE ( - ) 
<BUILDS DUP , DO 

[COMPILE] ' CFA , LOOP 
DOES> (npfa--) 

SWAP 1 + SWAP 2 DUP @ > 
IF 2DROP 

ELSE SWAP 2 * + @ 
EXECUTE 

THEN ; 

An F83 example of using this jump table is 
shown in Figure Two. 



A Jump Table with 
Arbitrary Stack Values 

A limitation of the jump table shown in 
Figure One is that the key values on the 
stack that select one of the words to be 
executed must be consecutive values, start- 
ing with zero. This is often easily arranged 
in small, dedicated systems where one 
scans only a few keys. With a standard 
keyboard, on the other hand, one usually 
has available the ASCII code of the key that 
has been pressed. In this case, it is more 
convenient to have a jump table that con- 
tains both the key (ASCII) code and the 
CFA of the word to be executed when that 
key code is on the stack. The jump table 
shown in Figure Three is such a table. In 
this case, the first element in the table is the 
number of key code/CFA pairs, not count- 
ing the final, default CFA (chrout). This 
jump table is created using the defining 
word make . table as follows: 

MAKE. TABLE do . key 

FKEY 

8 BKSPACE 

81 QWORD 

27 ESC 

-1 CHROUT 

The colon definition of make . table 
in F83 is: 

: MAKE . TABLE ( - ) 
CREATE HERE , 

BEGIN BL WORD NUMBER DROP 
DUP 1+ WHILE , ' , 1+ 
REPEAT DROP ' , SWAP ! 
DOES> ( n pfa - ) 
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DUP 2+ SWAP @ 
DO 2 DUP @ = 

IF NIP 2+ LEAVE 

THEN 4 + LOOP 
PERFORM ; 

The corresponding definition in fig- 
FORTH is: 

: MAKE . TABLE ( -- ) 
<BUILDS HERE , 

BEGIN BL WORD NUMBER DROP 
DUP 1 + 

WHILE , [COMPILE] 

, CFA , 1 + 
REPEAT DROP , CFA , 
SWAP ! 

does> (npfa--) 

DUP 2 + SWAP @ 
DO 2 DUP 8 = 

IF SWAP DROP 2 + LEAVE 

ELSE 4 + 

THEN LOOP 
@ EXECUTE ; 

An example of using this jump table is 
shown in Figure Four. 



Creating the Jump Table 
with Forth Words 

The jump table given in Figure Three is 
a convenient, generalized jump table. 
However, you need to know the numerical 
value of each key code before creating the 
jump table with MAKE . TABLE. It would 
be even more convenient if you could use 
Forth statements to compute the key codes 
during the creation of the jump table. We 
will use a new defining word called 
EXEC . table to define this same jump 
table. The jump table shown in Figure 
Three is created by executing the following 
statements: 



EXEC . TABLE 


CONTROL H 

ASCII Q 
H' 2B 



do . key 
I FKEY ( functionkeys) 
I BKSPACE 

( backspace key ) 
I qword (key Q) 
I ESC (quit to DOS) 



In this method of constructing the jump 
table, the statements to the left of the verti- 
cal bar | can be any Forth statement that 
leaves a numerical value on the stack. The 



vertical bar itself is a Forth word whose 
colon definition is: 

: | ( addr n ~ addr ) 
, ' , 1 OVER +! ; 

The corresponding fig-FORTH defini- 
tion is: 

: | ( addr n - addr ) 
, [COMPILE] 1 



CFA 



1 OVER +! 



This word commas into the jump table the 
key code value on the stack as well as the 
CFA of the Forth word following | . It also 
adds 1 to the pair count stored in the first 
element of the jump table. 

The colon definitions of exec . TABLE 
and default : in F83 are: 

: EXEC . TABLE ( ~ ) 
CREATE HERE , 
DOES> (npfa--) 
DUP 2+ SWAP @ 
DO 2 DUP @ = 

IF NIP 2+ LEAVE 
THEN 4 + LOOP 
PERFORM ; 

and 

: DEFAULT : ( addr - ) 
DROP ' , ; 

The corresponding definitions in fig- 
FORTH are: 

: EXEC . TABLE ( - ) 
<BUILDS HERE , 

does> ( n pfa -- ) 

DUP 2 + SWAP @ 

DO 2DUP @ = 

IF SWAP DROP 2 + LEAVE 
ELSE 4 + THEN LOOP 

@ EXECUTE ; 

and 

: DEFAULT : ( addr - ) 

DROP [COMPILE] ' CFA , ; 

Note that DEFAULT: stores the CFA of 
the default word in the jump table, after 
dropping the address of the first element in 



these words call built-in words rather than 
use BIOS or DOS calls. We can, therefore, 
redisplay the entire screen without any 
noticeable delay. If BIOS or DOS calls are 
used for EMIT and TYPE, the editor should 
be modified to update only changed parts of 
the screen, in order to obtain an acceptable 
response time. 

In summary, the EXEC-TABLE defin- 
ing word given in screen 7 of Figure Five 
provides a powerful method of defining 
jump tables. Two examples of such jump 
tables are given in screens 8 and 9. It is, 
obviously, a simple matter to modify this 
full-screen editor by adding and subtract- 
ing entries to these jump tables. 



pfa 



do . key 



Oword 



lword 



2word 



3word 



4word 



1 
2 
3 
4 



Figure One. Structure of CFA-only 
jump table. 



pfa 



do . key 



FKEY 



BKSPACE 



81 



QWORD 



27 



ESC 



CHROUT 



Figure Three. Structure of key code- 
CFA jump table. 
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the jump table (left on the stack by here 
when the jump table was created). As an 
example of using EXEC . TABLE, a full- 
screen editor that can be added to F83 will 
be described in the next section. 

F83 Full-Screen Editor 

Figure Five gives the listing of a full- 
screen editor we have added to the 1MB PC 
version of F83. This full-screen editor is 
activated by typing V from the editor. For 
example, to edit screen 26, you would type: 

26 EDIT 
V 

Pressing the ESC key from within the 
full-screen editor returns you to the F83 
editor. Typing DONE will then save any 
changes you have made, and will return 
you to Forth. 

Note that the definition of V in screen 9 
is simply: 

: V (-) 

.MODE BEGIN EDIT-AT 
KEY DO-KEY AGAIN ; 

After waiting for each key to be 
pressed, the jump table DO-KEY directs 
control to the proper Forth word to be 
executed. The jump table do-key defined 
in screen 9 handles all control characters 
used, and defaults to vchar, which either 
inserts or overwrites a character at the 
current cursor position. On the IBM PC, 
the function keys and the cursor keys on the 
numeric keypad return an ASCII code of 
when called by KEY. In this case, KEY must 
be called again to retrieve the scan codes 
for these keys. Note that in the DO-KEY 
jump table, this is handled by the word 
FKEY. The colon definition of FKEY is 
simply: 

: FKEY KEY DO -FKEY ; 

where DO-FKEY is another jump table 
defined by EXEC-TABLE in screen 8. This 
jump table handles all the function and 
cursors keys, PgUp, PgDn, Ins, and Del, 
etc. 

The shadow screens in Figure Five 
describe the functions of the words corre- 
sponding to the various keys. Many of 



Scr 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
ok 



tt 33 

\ Figure 2 



A : CSE241 . BLK 



jump. table ( -- ) 

CREATE DUP , CI ?DO ' , LOOP 

DOES> ( n pfa -- ) 

SWAP 1+ SWAP 2DUP @ > IF 2DROP 
ELSE SWAP 2* + PERFORM THEN ; 



Oword 
lword 
2word 
3word 
4word 



CR 
CR 
CR 
CR 
CR 



This 
This 



is word 
is word 1 
This is word 2 
This is word 3 
This is word 4 



5 jump. table jump. test Oword lword 2word 3word 4word 



3 Jump. test 
This is word 3 

jump. test 
This is word 
2 jump. test 
This is word 2 

4 jump. test 
This is word 4 

1 jump. test 
This is word 1 

5 jump. test 



ok 



ok 



ok 



ok 



ok 



ok 



Figure Two. Example use of jump table do . key. 



Scr 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
ok 



t» 31 A:CSE241.BLK 
\ Figure 4a 

: make. table ( -- ) 

CREATE HERE , 

BEGIN BL WORD NUMBER DROP 

DUP 1+ WHILE , ' , 1+ 
REPEAT DROP ' , SWAP ! 
DOES> ( n pfa -- ) 

DUP 2+ SWAP @ 
DO 2DUP @ = IF NIP 2+ LEAVE 

THEN 4 + LOOP 
PERFORM ; 



32 
Scr 




list 
tt 32 

( Figure 4 



A:CSE241 .BLK 



1 


) 




2 


: default. word ." This is the 


3 


3word 


' This is word 3" ; 


4 


: 5word 


' This is word 5" ; 


5 


: 17word 


" This is word 17" 


6 






7 


make . table 


make . test 


8 


3 


3word 


9 


5 


5word 


10 


17 


17word 


11 


-1 


default . word 


12 






13 






14 






15 






ok 







the default word 



5 make. test This ie word 5 ok 

3 make. test This is word 3 ok 

17 make. test This is word 17 ok 

14 make. test This is the default word 14 ok 



Figure Four. Example use of key code-CFA jump table. 
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Figure Five. Listing of F83 full-screen editor for IBM PC. 



1 

\ Editor Visual Mode Load Screen 

1 EDITOR ALSO DEFINITIONS 

2 2 9 THRU 

ONLY FORTH ALSO DEFINITION 
CR . ( Visual Editor Loaded ) 



11 

03Mar87AM \ Editor Visual Mode Load Screen 



03Mar87AM 



\ Display 

1 VARIABLE INSERTING 



2 : 
3 
4 
5 
t> 
7 
8 
9 
10 
11 
12 
13 
14 



.MODE ( - ) 
45 AT INSERTING 6 

IF ."Insert " ELSE ."Overwrite" THEN; 
INS ( - ) INSERTING 9 NOT INSERTING ! .MODE 



(REDQ-LINE) ( line* ■ 
DX OVER DY + AT C/L 

(REDO-SCREEN) ( - ) 
DX 6 + AT SCR ? 
L/SCR DO C FORTH ] 



REDO-LINE 
REDO-SCREEN 



( - ) 
( - ) 



12 

03NarB7AM \ Display 03Mar87AH 
INSERTING Current insert node. 
.MODE Display current node. 
INS Toggle between insert and overwrite node. 
(REDO-LINE) Redisplay a line. 
(REDO-SCREEN) Redisplay entire screen. 
REDO-LINE Redisplay current line and wrk screen as modified. 
REDO-SCREEN Redisplay screen and lark as aodified. 



* 'START + C/L TYPE 



I (REDO-LINE) LOOP ; 

LINE* (REDO-LINE) MODIFIED 
(REDO-SCREEN) MODIFIED : 



\ Character Insert/Delete 13Apr87AM 

1 : (VCHAR) ( char - ) 

2 INSERTIN6 e IF 'CURSOR DUP 1+ *AFTER 1- CM0VE> THEN 

3 'CURSOR C! ( store char ) REDO-LINE 1 C ( aove cursor ) ; 

4 : VCHAR ( char - ) 

5 DUP BL - 95 U< IF ( printable ) (VCHAR) ELSE DROP THEN ; 

6 : DEL ( - ) 

7 'CURSOR *AFTER 1 DELETE ( delete 1 char ) REDO-LINE ; 

8 : BKSP ( - ) 

9 COL* IF -1 C ( wove cursor back ) INSERTIN6 § IF DEL 

10 ELSE BL 'CURSOR C! REDO-LINE THEN THEN ; 

11 : TAB ( - ) 

12 4 COL* 3 AND - ( * positions to next tab stop ) 

13 INSERTING 8 IF " " DROP OVER 'CURSOR #AFTER INSERT 

14 REDO-LINE THEN C ( tove cursor to tab stop ) ; 
15 



13 

\ Character Insert/Delete 04«ar87AM 
(VCHAR) Insert or overwrite a character at the cursor. 
VCHAR Ingore non-printable characters. 
DEL Delete the character at the cursor. 
BKSP Backspace and erase a character. 
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\ Cursor Moveaent 


1 


RIGHT 


1 C : 


2 


LET 


-1 C : 


3 


UP 


C/L NEGATE C ; 


4 


DOWN 


C/L C : 


5 


CRR 


1 +T ; 


6 


EOL 


LINE* T 'LINE C/L -TRAILING NIP C ; 


7 


HOC 


TOP ; 


8 


END 


TOP 'START C/SCR -TRAILING NIP C ; 


9 


P6UP 


SCR 6 ( don't go past screen ) 


10 


IF 


7STAMP B (REDO-SCREEN) ELSE BEEP THEN 


11 


PGDN 


SCR 8 CAPACITY 1- < ( don't fall off end 


12 


IF 


7STAMP N (REDO-SCREEN) ELSE BEEP THEN 


13 


ALT 


( — : alternate between screen and shadow ) 


14 


?STAMP A (REDO-SCREEN) ; 


15 







14 

17Apr87AH \ Cursor Moveaent 03Mar87AM 

RI6HT Hove cursor right. 

LIFT Move cursor left. 

UP Move cursor up one line. 

DOWN Move cursor down one line. 

CRR Hove cursor to beginning of next line. 

EX Move cursor to end of current line. 

HOME Move cursor to top of screen. 

END Move cursor to end of screen. 

TAB Move cursor to next tab position. 

PGUP Go to previous screen. 

PGDN 6o to next screen. 

ALT Alternate between a screen and its shadow. 



\ 

1 : 
2 



D 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



Line Insert/Delete 
NEHL ( - ) 

'LINE C/L OVER #END INSERT 'LINE C/L BLANK REDO-SCREEN 
DELL X REDO-SCREEN ; 
DEOL "C#A BLANK REDO-LINE ; 
REPL 'INSERT 1+ 'LINE C/L CMOVE REDO-LINE ; 
INSL NEWL REPL ; 
SAVL KEEP 18 AT .LINE j 



15 

04Mar87AM \ Line Insert/Delete 



04Har87AH 



WIPE 
VDISCARD 

VSPLIT 
VJOIN 



WIPE (REDO-SCREEN) ; 
DISCARD CHANGED OFF 



(REDO-SCREEN) 



NEWL Insert a blank line before the current line. 

DELL Delete the current line. Save in insert buffer. 

DEOL Deleta to the end of the line. 

REPL Replace line froa the insert buffer. 

INSL Insert contents of insert buffer before current line. 

SAVL Copy line to insert buffer. 

VWIPE Wipe screen clean. 

VDISCARD Ignore changes made to screen. 

VSPLIT Split line at cursor. 

VJOIN Join next line at cursor. 



( - ) 



SPLIT 
JOIN 



REDO-SCREEN ; 
REDO-SCREEN ; 



6 

\ Other Visual Operations 03Mar87AM 

1 : DELW ( - ) 

2 'CtA 2DUP TUCK BL SCAN BL SKIP NIP - DELETE REDO-LINE ; 

3 : +W0RD ( - ) 

4 'CURSOR #REMAININ6 TUCK BL SCAN BL SKIP NIP - C ; 
5 

6 : (-WORD) ( addrl lenl - adr2 len2 ) 

7 DUP ?D0 2DUP + 1- C§ BL = 7LEAVE 1- LOOP ; 

8 : -WORD ( - ) 

9 'CURSOR Ce BL <> IF -1 C THEN 

10 'START CURSOR -TRAILING (-WORD) R# ! DROP ; 

11 

12 

13 

14 



It 

\ Other Visual Operations 03Mar87AM 
DELW Delete the next word. 

+W0RD Move cursor to the beginning of the next word. 
(-WORD) Reaove non-blank characters froa a string. 
-WORD Move cursor the beginning of previous word. 
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\ 

1 : 
2 

3 
4 
5 
6 
7 

8 : 
9 

10 : 

11 

12 

13 

14 

15 



Execution Table 
EXEC-TABLE ( - addr ) 
CREATE HERE , 
DOES) ( n Ma) — ) 
DUP 2+ SHAP * 
?D0 2DUP 8 = IF 
PERFORM ; 

I ( addr n — addr ) , 



DEFAULT: ( addr - ) DROP 



04Mar87AM 



NIP 2+ LEAVE THEN 4 + LOOP 



1 OVER +! 



17 

\ Execution Table 04Mar87AM 
EXEC-TABLE Define an execution table. Items are compile with 
!. At runtiie a value is placed on the stack and the table 
is searched -for a matching value. If it is found, the 
selection value is dropped and the corresponding word is 
executed. Otherwise the default word is executed with the 
selection value still on the stack. 

! Compile a table entry. 

DEFAULT: Coop lie the default action and end table definition. 
If no default action is desired use DEFAULT: DROP. 



\ IBM Function keys 
EXEC-TABLE DO-FKEY 



04Mar87AH 



59 
61 
63 
65 
67 



71 
73 
77 



9 
10 

11 80 

12 82 

13 115 

14 DEFAULT 
15 



NQOP 
SAVL 
REPL 
NO0P 
VWIPE 

HOME 
PGUP 
RIGHT 
DOWN 
INS 
-WORD 
DROP 



< Fl ) 

< F3 ) 
( F5 ) 
( F7 ) 
( F9 ) 

( Hone ) 

( PgUp ) 

( Right ) 
( Down ) 

( Ins ) 

( "Left ) 



60 
62 
64 
66 
68 

72 
75 
79 
81 
83 
116 



ALT 

DELL 

INSL 

NOOP 

VDISCARD 

UP 

LEFT 

END 

P6DN 

DEL 

+W0RD 



) 



( F2 

( F4 

( F6 ) 

( F8 ) 

( F10 ) 

( Up ) 

( Left ) 

( End ) 

t PgDn ) 

( Del ) 
( "Right ) 



18 

\ IBM Function keys 03Mar87AM 
DO-FKEY Table of actions for IBM function and special purpose 
keys. The scan code is on the stack. 



\ Editor Visual Mode 04Mar87AM 

1 : FKEY ( - ) KEY DO-FKEY ; 

2 : ESCAPE ( - ) 

3 ?STAMP (REDO-LINE) 'START 'VIDEO B/BUF CMQVE QUIT ; 

4 EXEC-TABLE DO-KEY 



5 





FKEY 


CONTROL E 


EOL 


6 


CONTROL H 


BKSP 


CONTROL I 


TAB 


7 


CONTROL J 


VJOIN 


CONTROL M 


CRR 


3 


CONTROL N 


NEWL 


CONTROL S 


VSPLIT 


9 


CONTROL T 


DELW 


CONTROL U 


DEOL 


10 


CONTROL Y 


DELL 


27 


ESCAPE 



11 DEFAULT: VCHAR 
12 

13 : V ( - ) 

14 .MODE BEGIN 
15 



EDIT-AT KEY DO-KEY AGAIN 



19 

\ Editor Visual Mode 03Mar87AM 
FKEY 6et exented key code and perform function key action. 
ESCAPE Exit from visual node to editor command mode. 
DO-KEY Execution table for control keys. 
V Enter visual mode from the editor. 
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Figure Six. F83 partial editor glossary. 
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PROFILES IN FORTH: 

John D. Hall 



Mike Ham, frequent FD interviewer, 
recently spoke with one of the Forth Inter- 
est Group's Board of Directors. John 
David Hall shared his professional back- 
ground, and his views of FIG and of the 
greater Forth community. 



MH: How long have you been FIG chapter 
coordinator? 

JH: Five years; I started in 1983. 1 went to 
a board meeting, and there were two things 
going on. I was interested in the chapter 
mailings: John Cassady was sending the 
handouts to the various chapters. At the 
board meeting, the suggestion came up that 
maybe the work that John was doing wasn ' t 
getting completed soon enough. I volun- 
teered to help John, and the board said, 
"Great, John James really needs some 
help." 

I said, "John James?" And they said, 
"Yes, he's trying to put together some 
chapters." They wanted to formalize the 
process and set up a formal contact between 
FIG and the chapters. John James had al- 
ready started writing up the documents, and 
he also needed some help. And that's how 
I got started with the chapters. 

MH: How many chapters did FIG have 
then? 

JH: About 16 informal chapters. Many are 
the core of what we have now as chapters. 
We had contacts in Tokyo already, the New 
York chapter, the Potomac chapter, the 



Silicon Valley chapter, the Orange County 
chapter. 

MH: How many do we have now? 

JH: We have a list of 80 chapters. Last year, 
I sent out recertification forms and got them 
back from about 50, but out of the remain- 
ing 30 there are chapters that exist and are 
very strong, like the Potomac chapter, who 
never answer any inquiries. Lately I call 
people and ask if there really is a chapter 
there. I thought the Chicago chapter had 



Forth is used more and 
more, but it is somewhere 
underneath..." 



fallen apart. But today I got a contact with 
one of the people, and it' s very active; I just 
had the wrong person. The person who had 
been the contact had moved on and left it 
with someone who had not gotten ahold of 
us yet 

MH: The chapter movement is important 
for remote members. 

JH: We wanted to start the chapters as a 
way of keeping the membership growing. 
You really can't do it from a central place. 
We can do only so much with Forth Dimen- 
sions. The authority and the ability to gather 
new members needs to be passed on to the 
chapters. 

MH: What do successful chapters have in 



common? Can you tell what makes a chap- 
ter work? 

JH: Yes: dynamic personality, of the 
leader or leaders. We're really fortunate in 
Silicon Valley because we have several 
dynamic people. If one person drops out, 
somebody else steps in. I've tried to en- 
courage other chapters to start — to see if 
they can't find these dynamic people to 
help them run the chapter. When they 
haven't been able to find such people, the 
chapter doesn't seem to be able to survive. 
It takes somebody who' s dedicated to help- 
ing other people and who's really enthusi- 
astic about it. 

What we're beginning to find out is that 
it takes more than one person. One person 
is important. Butas soon as that person gets 
tired, who do you pass it on to? It really 
takes two, or three. You really need to find 
a core of two or three — you need to find a 
team, so that when one person's on vaca- 
tion, things don't fall apart. When one 
person wants to go to Thanksgiving, or to 
FORML, things can't fall apart. So you 
need a team of people. And that's really 
what it takes. 

MH: You mentioned in the Silicon Valley 
chapter meetings a morning session and 
afternoon session. How do those work? 

JH: When the Silicon Valley chapter first 
started, the morning session was called 
FORML, just like the FORML conference. 
The reason was, we had technical subjects 
in the morning. In the afternoon, we had 
people showing applications, things they 
had done. It's become a little confused 
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lately, because we have technical papers in 
the afternoon, as well as in the morning, or 
we have applications in the morning as well 
as the afternoon. So the structure of morn- 
ing and afternoon has been blurred. I'm not 
quite sure why that is. We also see a decline 
in the number of papers being presented. In 
the Silicon Valley we see more applications 
being demonstrated than code being dem- 
onstrated. I think it's just our lack of em- 
phasis on trying to get the technical people 
there. 

MH: What do other chapters do? 

JH: San Diego County has an interesting 
format. They meet at lunchtime. Silicon 
Valley meets the fourth Saturday of every 
month, and it's pretty much an all day: 10 
o'clock in the morning until 5 o'clock. San 
Diego meets every Thursday at lunchtime, 
and it's very informal. I was talking to them 
this morning. Guy Kelley is more or less the 
leader of the group, and it's a roundtable. 
Physically, there's a U-shaped table. Guy 
sits in the middle of the U, and whoever 
wants to talk gets up and goes up to the 
blackboard and the podium and starts talk- 
ing. They don't have a secretary or treas- 
urer, and they have been meeting success- 
fully for five or six years that way. Every- 
body brings his lunch. They have a good 
group; they're kind of arebellious group. If 
someone wants to get up and say something 
controversial, they do. And often they get 
into a good discussion. 

MH: What about your own background? 
When did you first find Forth? 

JH: I was a physics and chemistry major in 
Alaska and at Berkeley, and I didn't quite 
finish college when I went into the Army. I 
came back from the Army in 1963 and went 
back to Berkeley. By then I wasn't as inter- 
ested in chemistry as I had been earlier, but 
I had to finish my degree, so I went on with 
a chemistry degree. At the same time, 
computers — big computers — were be- 
ginning to be used, and I learned FOR- 
TRAN. I was becoming interested in com- 
puters. 

I returned to Korea as a civilian, my 
wife and I were married. I returned to the 
U.S . in 1 967 . 1 decided that computers were 
what I wanted to be involved in. I found a 



chemical company and started working as 
a lab assistant They had an IBM 1130. It 
was a brand-new computer, but it was sit- 
ting idle, and I did some programs for the 
chemical engineers. 

In 1970, 1 worked with an accountant in 
Oakland, where I now live, using an IBM 
1130. I've worked off and on for account- 
ants, and the University of California, in 
the Agricultural Extension Service, which 
did a lot of 4H registration. All on the IBM 
1130. 

MH: What language? 

JH: All this was business applications in 
FORTRAN. When COBOL became avail- 
able on the IBM 1130, it was in COBOL. 
This was in 1974. In '75 1 read the article 
about the MITS computer and I bought an 
Altair computer. I put that together myself. 
My whole background has always been 
software; this was the first project where I 
had picked up a soldering iron and worked 
with hardware. 

That got me into microcomputers. I was 
still working at the University of California 
at that time. About two years later the 
Processor Technology SOL computer 
came out. I had been working in the ac- 
counting service before, and I went there 
with a proposal: let's put together an ac- 
counting package. BASIC was all that was 
available at that time. So my sister, Beckie 
Harvey, and I began programming in 
BASIC and wrote a complete accounting 
package. 

This was around August of 1980, and as 
we read the Byte articles about Forth we 
realized this was really the direction we 
would like to go. Because we were trying to 
make our BASIC programs as flexible as 
possible: we were building small tools. I 
had a sort package I could move from 
application to application, I had a string 
data-entry package I could easily move. 
We were trying to put together these mod- 
ules, and here was a modular language. 

So we started to reprogram everything 
we had written. We had a general ledger 
and accounts receivable for convalescent 
hospitals, vertical markets at that time. We 
had all these written in BASIC, and they 
were slow. We started rewriting them in 
Forth and were well on our way when 
Processor Technology died on us, right in 
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the middle. We had an orphan. 

We could have continued, and we could 
have sold the few processors we had. We 
had about 12 of them installed in several 
convalescent hospitals, doing accounts 
receivable. But the Sol was gone. The next 
question was, where to go? We were stuck. 

So in 1981, Beckie and I split up. She 
went down to Los Angeles and worked for 
a company, programming in Forth; and I 
became a consultant and found jobs in 
Forth. One was for a company called Stafa, 
where they were beginning to do control- 
lers for ducts: environmental control. They 
had a controller built right into the ducts, 
and they could talk to the device through 
the AC connections. It was a single chip and 
it had Forth on it. 

MH: The 8080? 

JH: No, but it was an embedded 8080-like 
processor; an 8080 controller chip with 
everything on it, A-to-Ds, everything. A 
single chip with all the hardware on it. 

MH: A long way from the 1130? 

JH: A long way from the 1130! 1130s at 
that time were considered minicomputers, 
and they were designed as scientific mini- 
computers, but we had used them as busi- 
ness machines because they were inexpen- 
sive. 

The Stafa project took about 8 months 
or so. Then about that time Gary Feierbach 
had a job to do an engine test device for a 
company in Ventura. Paul Thomas, Gary 
Feierbach, Matthew Johnson, and myself 
were all working as a team. The project was 
what I now characterize as a typical Forth 
project putting out a fire. Somebody had 
attempted a project, had put a lot of money 
into it, decided they couldn't do it in the 
traditional languages, came to us and said, 
"We really need to get this thing done, and 
we really need to get it done by a certain 
date, and we've heard that Forth can do this 
— do it for us." 

Gary was teaching Forth and was doing 
some hardware at the time, and decided to 
take on the project 

The project really wasn't well defined. 
And as we went along, the requirements 
changed. The client thought we could make 
the project a little more user-friendly — at 



that time the buzzword was "user- 
friendly." By the end of a year, it turned out 
we were doing it almost 1 80 degrees out of 
phase from the original specifications. 
Originally, we had started a controller with 
very little user interface: it was to do engine 
testing. When we were all done, it was an 
engineer's workstation, with a much larger 
user interface. 

In most applications, a user interface is 
a good 50% of the project, so we had almost 
doubled what we had set out to do in the first 
place. 

MH: Did it come out as a product? 

JH: It eventually came out as a product, 
though it was completed by another group. 

After that, I went to work with Rising 
Star. They had already been working for a 
year or so on putting together a personal 
computer, a turnkey kind of computer. You 
turned it on, it came up in an editor; you hit 
a calc key and went into the spreadsheet; 
you hit "mail," you went into the mail 
programs; you hit the copy key to copy a 
disk. It was a basic, novice, entry system. 
That was the concept At that time, the IBM 
PC still had not really picked up, and they 
were doing it on an Epson computer with a 
Z-80. The interesting part was that we were 
showing what a Z-80 could really do. It was 
amazing. We had multiple banks of 64K 
memory. We put a spreadsheet in one bank, 
the editor in another bank, the operating 
system in a third bank, and so on. And 
graphics — we had graphics that nobody 
else had at that time. 

MH: You actually drew the letters on the 
screen. 

JH: Yes, the editor was What- You-See-Is- 
What- You-Get; we had bold and italics and 
all the stuff. And most of the upper-level 
applications were written in Forth, pretty 
much in high-level Forth. The operating 
system was written in assembler, by a 
company that had started up way back when 
CP/M was starting. They had written their 
own workalike CP/M called TP/M. Now 
they were reforming, with the same people 
and with their own operating system , CP/M 
compatible but with extensions. They had 
one graphics guru; he took care of the 
graphics engine. We made calls to the 
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graphics engine to draw a line or change 
fonts — that kind of thing. We didn't draw 
the characters in Forth, we called the graph- 
ics engine. But again it was all the Z-80 
machine: the same Z-80 machine, with us 
calling it from different places. 

MH: So when you switched the applica- 
tion, you would just drop into the operating 
system, and it would switch the bank — is 
that the way it worked? 

JH: Yes. 

MH: What was your job in the Rising Star 
project? 

JH: My job switched very quickly. Origi- 
nally, I was to help do the menus. Between 
applications, there were menus that would 
allow you to switch applications. The first 
thing that struck me was that the Forth 
underneath was very large, very overbuilt 
So it was decided to reinstall the underlying 
Forth. That was a three-person job, and I 
got involved. We installed a simplified, 83- 
Standard model with separated heads (like 
the original F83). 

Then we put that underneath the appli- 
cations — the applications were already 
building. The most complete was the 
spreadsheet, so we took that one, moved the 
new Forth under the spreadsheet, and found 
that no changes had to be made to the 
spreadsheet. We had integrated it enough 
into what the old system looked like, that it 
really fit underneath — it surprised me. I 
thought there would be tools that we didn't 
include, but it didn't happen; it fit in very 
nicely. 

But Rising Star was out on a limb. They 
were being fed money by Epson, and that' s 
how they were able to keep about 30 pro- 
grammers going. The programmers were 
scattered all over the United States. There 
were a team of 6 or 7 assembly language 
programmers who did the operating system 
and the mail program; they were back East. 
There were a couple of people in Oregon, 
who did documentation of the team that did 
the new Forth. I lived in Oakland, Paul 
Thomas lived in San Francisco, and Ron 
Braithwaite lived in San Diego county. 

This was the first time I had seen pro- 
gramming at a distance. We all worked at 
home and sent modules back and forth by a 



bulletin board system on the team leader's 
computer. We all used the Epson computer 
— they were up enough and running so we 
could use it. We would upload and down- 
load modules using the team leader 's bulle- 
tin board. Every month, everybody would 
come across the United States to meet in 
Los Angeles, in Torrance where the head- 
quarters were. 

It was a nice environment, pleasant for 
programmers. It worked as a management 
tool, and it worked very nicely — particu- 
larly for Forth programmers, because we 
were very independent We liked to work 
by ourselves on projects and then come 
together to pool the pieces and the knowl- 
edge, rather than all working together in a 
office. Really, you do the same thing in an 
office. You get together, pull off a piece, go 
work on it, put it back together again. It's 
just that often you have someone come in 
and look over your shoulder to see how 
you're doing, see if you're doing it fast 
enough. It turns out that if you do it at home, 
you work more hours on your project than 
in the office, because you work until ten or 
twelve at night. At the office you go home 
at five. 

Rising Star ended in December of 1984. 
I was there for about half the project, about 
8 months. By then the IBM was beginning 
to make an impact Epson decided they no 
longer wanted to continue with a Z-80 
product they wanted an 8088 product 
They thought we could finish, so they gave 
us a little extra life. I think they would have 
cut it off in August or September, but they 
thought "Well, we're very close to getting 
the product done and getting it out the 
door," so they gave us until December 
before they cut off the money. We weren't 
done, and Rising Star just collapsed in 
December. 

If you want to point any fingers, it was 
because of the editor. The editor was a 
concept picked up from Forth — it was the 
typical Forth line editor extended to this 
glorious What You See Is What You Get. 
The idea of the line editor is that you edit on 
the single line in the middle of the screen; as 
you scroll up or down, the screen moved 
and you were editing that line. But a line of 
text extends any distance; you have to mark 
it — there were a lot of complications. But 
the whole model was limited in how it was 
first conceived, and it grew beyond its 



bounds. 

The original concept should have been 
modified earlier. Rising Star spent a lot of 
money putting people in hotels. They took 
the editor team and locked them in a hotel 
for three weeks at a time trying to get the 
product up to a certain level. It was a very 
intense situation. There was no time even to 
go back and think. They just plowed along 
at this point. Probably that should have said 
the end is coming. 

MH: If you get off on the wrong foot with 
a concept, you can go a long way; but 
there's a certain point beyond which you 
need to say, "This was a wrong turn, let's go 
back to die very beginning and rethink 
this." 

JH: You have to back up, but when money 
is involved, time is involved, and reputa- 
tions are involved, sometimes you can't 
back up. And if you can't back up and you 
can't go ahead, the fate is sealed. That 
doesn't seem to be acceptable either, but it 
often comes to a tragic end. 

MH: And you were back to consulting. 

JH: I was working for Rising Star as a 
consultant From Stafa to Inner Access to 
Rising Star, I was a consultant When Ris- 
ing Star fell, it caught me off guard, and it 
took me until about March to find some 
other work. I took a job at Lockheed Re- 
search and Development in Palo Alto, and 
it turned out to be very interesting work. 
Lockheed's research and development is 
right next to Stanford, and it gives the area 
around Lockheed an academic atmosphere. 
I thought it was an opportunity to get in and 
do something with Forth that wasn't just 
grinding out code. Not that all my other jobs 
were just grinding out code — there were 
some opportunities to explore. That was in 
1985, and now I have worked there almost 
three years. 

MH: Programming in Forth? 

JH: Yes. Our major department is called 
Applied Physics. As a subgroup, we are 
about 10 people; our sub-group is called 
"fast processors." The idea is to build fast 
sensors. The leader of the group is very 
interested in Forth. Some are software 
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people, and the rest are hardware people. 
But in Forth, there is not a clear distinction 
between the software and hardware people. 
I have learned a lot more of hardware than 
I would ever have thought was possible. 

Forth has opened my eyes to these 
things I at one time called black boxes. On 
the IBM 1130, 1 knew the language but I 
didn' t know what the operating system did, 
I didn't know the drivers — everything but 
the language and application was a black 
box. There are no black boxes any more. 
Forth is so simple, I can cut through and see 
that all these things I called black boxes 
were probably overly built, complicated 
structures thatdidn'treally need to be there. 
Maybe the machinery of the time was more 
primitive and that may have caused some of 
complexity. 

MH: What processor do you use now? 

JH: When I first started at Lockheed, we 
were using Intel development machines, 
essentially 8086s and 286s running parallel 



processes. They communicated through a 
common memory on a bus. There were four 
independent cpu boards communicating 
through common memory, each board col- 
lecting, storing, manipulating, and logging 
the data. 

Our group has now moved to the Novix 
4016chips. Wefoundwiththe4010wecan 
replace hardware with software. If some- 
body wants a sensor, we can take the 4016, 
attach it to whatever we want to sense, and 
run it fast enough that we don't need hard- 
ware in between. We don't need much 
hardware in front of us — maybe an A-to- 
D. We can do a lot of high-speed sensing. 

We were using Computer Cowboy's 
boards. We have a project now to see if we 
can't put together a parallel Novix system, 
where a lot of Novix chips and boards are 
all working together. 

MH: How many? 

JH: We're starting with 10 independent 
cpus connected in parallel. We're begin- 
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ning to do some of the software. It's a 
master-and-slaves concept, where the 
master decides what the whole project is all 
about and posts on a blackboard jobs to be 
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be available soon. For beginners, we highly recommend the Starting Forth manual, and we recommend the Go FORTH Toolkit 
series for everyone! 

ONLY $69.95 Complete, order #5807 

Go FORTH Toolkit #1 (Applsoft-like commands/utilities): $49.95, order #5809 
Starting Forth by Leo Brodie (The training manual for Forth): $21 .95, order #5706 
Add $1.00 Shipping and handling per item. 

24 HOUR VISA / MASTERCARD ORDER LINES 
California Only: (800)541-0900. Outside California: (800)334-3030. Outside U.S.A. : (619)941-5441 

P Al R SOFTWA RE (916) 485-6525 

3201 Murchison Way, Carmichael, California 95608 

Apple / / e, lie, 1 1 gs and / / /, ProDOS and SOS are registered trademarks of Apple Computer, Inc. No affiliation with Pair Software 
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done. The slave's job is to take a task, do it, 
and post the results back on the blackboard, 
picking up the next task. 

MH: Let's talk a moment about FIG. What 
is your take on where FIG is going? 

JH: FIG, not Forth, has come to a level, a 
plateau. My impression is that Forth is 
continuing to be used more and more, but it 
is somewhere underneath everything. It 
shows up continuously: Rapid File, VP 
Planner, the Canon Cat — all the things we 
point out as examples of where Forth is 
being used — they 're still growing , but FIG 
is plateaued at the moment. 

MH: It sounds like FIG at the beginning 
was an incubator for the fledgling language 
and then, once the language was estab- 
lished, FIG looks around for a new direc- 
tion. I feel as if FIG is still an entry for 
people to get into Forth, but FIG's mission 
with regard to established Forth is not clear. 



JH: You're right There wasn't any use of 
Forth by the common programmer before 
FIG came along. The only two companies 
that existed were Forth, Inc. and Miller 
Microcomputer Services. The FIG group 
came along and decided that they wanted to 
build a people's version of Forth. It was a 
good Forth, and that sparked an interest — 
now everybody could know about it, every- 
body could get involved. 

Because Forth opens up these black 
boxes, people who didn't know they could 
get into compilers, got into compilers. 
Before, you used languages, you didn't 
inquire as to how they were constructed, 
why they were there, what they did. Forth 
was both language and operating system, 
so you opened up the operating system. 
You opened a lot of people's eyes, who 
didn't realize what power was there. 

Martin Tracy calls these people hobby- 
ists, but I would say they're really profes- 
sionals who got into this. They knew hard- 
ware, they knew software — they may have 



come from other disciplines, but they got 
into microcomputers at the beginning. 

Nowadays, though, you don't go out 
and buy an Imsai, an Altair, or a Sol and put 
it together yourself and put your own lan- 
guage into it. You go out and buy a Macin- 
tosh, and immediately you have applica- 
tions sitting in front of you. You may want 
to go back down and write an application of 
your own, but you are going down to write 
the application, you're going down from 
the level you were at. You've got to build 
the user interface, you've got to build a lot 
of things. So people have different expecta- 
tions now. Earlier, people had no expecta- 
tions at all — they had to build everything, 
and fig-FORTH was a tool to get them 
through it That group of people — and they 
could be called hobbyists — I don't think 
we can count on as much now. 

Fifty percent of FIG are hobbyists, 50% 
are professionals. We have tried to decide 
how to support each. We're coming to the 
conclusion that FIG now satisfies the hob- 



filVFN • 0ur r ° rth Super-8 Development System 
\IlVLdl* and Your IBM Compatible PC- 

YOU CAN: 

Really 
Start 

Something 

Do your target application right on the target. 
Your PC becomes the file server and terminal. 

Development board comes complete with development ROM, F83 on PC diskette with terminal emulation and file 
server software. 

Full documentation. LIST 

4 Inner Access Corporation 

A. ■ A 1155-A Chess Dr., #D, Foster City, CA 94404 (415) 574-8295 Telex 494-3275 




$295 
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byists and is the base for the professionals, 
but it doesn't satisfy the professionals 
completely. We're looking for techniques 
to meet those professionals' needs. 

MH: And you would be interested to hear 
from any professionals as to what they need 
and want. 

JH: We'd be interested to hear, but what 
they need and want is becoming clear. 
They need money, and they need moral 
support. They don't want to hear their 
managers ask, "What's Forth and why are 
you using it? Why aren't you using C?" 
They want to hear their managers say, 
"We've heard about this wonderful idea — 
you've got to use Forth." 

I think we can approach that. This is 
something we've been discussing at this 
convention: techniques of helping those 
people — maybe not directly, but indi- 
rectly, by opening management eyes. 

MH: What steps do you think FIG needs to 
take? 

JH: Communication, in all senses. In the 
past, we have left it up to Forth Dimensions 
and the chapters to communicate to our 
members. Now we have branched out into 



Rumor Stack 

by The Inner Interpreter 

One of the Big Ten (Five? Seven?) of 
Forth systems vendors is combing their in- 
house archives for utilities and/or applica- 
tions to package as off-the-shelf products. 
(Whether they give credit, much less pro- 
vide access, to the underlying Forth re- 
mains to be seen.) Did this departure from 
past practice come from new, middle- 
managerial blood (a total transfusion, I'm 
told), or was it the other way around? Of 
course, people have been saying for years 
that systems-only vendors can't tackle the 
market size-and-share problem with just a 
limited ad budget. You can bet other ven- 
dors will be watching the experiment 
closely. 



GEnie. That's another kind of communica- 
tion. What I'm beginning to see is that 
there's a whole spectrum of communica- 
tion: we need a newsletter that may go out 
monthly, we need chapters talking directly 
to other chapters (GEnie will help that), we 
need to encourage authors to write general 
interest articles that can go into magazines 
that are about applications, but not specifi- 
cally about Forth. 

If I could go back and do things over, I'd 
start by saying that we won't promote Forth 
directly. I would take an indirect approach, 
go around the outside and present some 
really interesting applications. "Just look at 
these — aren't these really useful to you? 
By the way, they're written in Forth. And 
they're ten man-year kind of projects that 
took two man-years to do, and the dollars 
per line of code is x." 

I would try that approach. I know many 
people along the way said that's what we 
should be doing; but I didn't hear it, and 
many of the rest of us didn't hear it. 

MH: One problem is that when you're 
working in Forth, it' s so evident. It's always 
hard to talk about the obvious. When you 're 
working in Forth you can tell how produc- 
tive you're being, you can tell how much 
you can do with how little. You can tell how 



Meanwhile, a different big hitter ap- 
pears to be quietly defecting to a less-frus- 
trating market and a less-interesting lan- 
guage (see what I mean). Several program- 
mers I know have been studying those tor- 
tuous straits, and now their arguments for 
Forth are more reasoned than rabid. But the 
dark side is more powerful than we know, 
Luke. What's happening here? 

A small but well-known Forth shop 
dropped out of sight a few years ago, but 
they are back with a proposal in hand for a 
tasty dollop of the government's budgetary 
mousse. OK, this is premature, even as 
rumours go, but it's the kind of project that 
could put the work of more than one Forth 



your accumulated tools and understanding 
add up and give you increasing leverage in 
a way that I didn't feel I had with Fortran or 
assembly language. It becomes so obvious 
it's hard to explain. That's where the idea 
of the Forth zealot came from: they say it's 
real good, and when you ask them why, 
they can't explain — it's hard to explain, 
because it's so obvious. They finally say, 
"Just use it." And then you think, "Hmm. 
Zealot." 

JH: One curiosity that has bothered me is, 
why haven't assembly language program- 
mers usedForth as their language tool? It's 
obvious that they have the power of writing 
an assembly language application using 
Forth and have the interactive ability right 
in front of them — which they don't have 
in assembly. They just don' t have anything 
in the assembler along this line. That's a 
real curiosity to me: why we don't have 
those people using Forth. A large potential 
group, but I think the time's past. Those 
days may have changed; they may be all 
using C now. 



Mike Ham is dp product manager at 
CTB I McGraw-Hill in Monterey, Cali- 
fornia. 



notable into the sights of the Great Chefs of 
Washington. 

Question of the day: who will offer the 
first, full-blown Sourceless Forth? Our 
rangy wrangler, that computer cowboy, 
mentioned this in his Fireside Chat — and 
so did some FORML-goers. Good idea — 
I'd like to try one on for size. S oon, please? 
(ABEND) 



"The Inner Interpreter" listens — 
send him your juicy tidbits, do Forth Di- 
mensions. He's careful, but be advised: 
the rumors he reports may be no more 
than rumors. 
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FIG 

CHAPTERS 



U.S.A. 

• ALABAMA 

Huntsville FIG Chapter 

Tom Konantz (205) 881-6483 

• ALASKA 

Kodiak Area Chapter 

Horace Simmons (907) 486-5049 

• ARIZONA 

Phoenix Chapter 

4th Thurs., 7:30 p.m. 

Dennis L. Wilson (602) 956-7578 

Tucson Chapter 

2nd & 4th Sun., 2 p.m. 

Flexible Hybrid Systems 

2030 E. Broadway #206 

John C. Mead (602) 323-9763 

• ARKANSAS 

Central Arkansas Chapter 

Little Rock 

2nd Sat., 2 p.m. & 

4th Wed., 7 p.m. 

Jungkind Photo, 12th & Main 

Gary Smith (501) 227-7817 

• CALIFORNIA 

Los Angeles Chapter 

4th Sat., 10 a.m. 

Hawthorne Public Library 

12700 S. Grevillea Ave. 

Phillip Wasson (213) 649-1428 

Monterey/Salinas Chapter 

Bud Devins (408) 633-3253 

Orange County Chapter 

4lh Wed., 7 p.m. 

Fullerton Savings 

Huntington Beach 

Noshir Jesung (714) 842-3032 

San Diego Chapter 

Thursdays, 12 noon 

Guy Kelly (619) 450-0553 

Sacramento Chapter 

4th Wed., 7 p.m. 

1798-59th St., Room A 

Tom Ghormley (916) 444-7775 

Silicon Valley Chapter 

4th Sat., 10 a.m. 

H-P, Cupertino 

George Shaw (415) 276-5953 

Stockton Chapter 

Doug Dillon (209) 931-2448 



• COLORADO 

Denver Chapter 

1st Mon., 7 p.m. 

Steven Sams (303) 477-5955 

• CONNECTICUT 

Central Connecticut 
Chapter 

Charles Krajewski (203) 344-9996 

• FLORIDA 

Orlando Chapter 

Every other Wed., 8 p.m. 

Herman B. Gibson (305) 855-4790 

Southeast Florida Chapter 

Coconut Grove area 

John Forsberg (305) 252-0108 

Tampa Bay Chapter 

1st Wed., 7:30 p.m. 

Terry McNay (813) 725-1245 

• GEORGIA 
Atlanta Chapter 

3rd Tues.,6:30 p.m 
Western Sizzlen, Doraville 
Nick Hennenfent (404) 393-3010 

• ILLINOIS 

Cache Forth Chapter 

Oak Park 

Clyde W. Phillips, Jr. 
(312) 386-3147 
Central Illinois Chapter 
Urbana 

Sidney Bowhill (217) 333-4150 
Rockwell Chicago Chapter 

Gerard Kusiolek (312) 885-8092 

• INDIANA 

Central Indiana Chapter 

3rd Sat., 10 a.m. 

John Oglesby (317) 353-3929 

Fort Wayne Chapter 

2nd Tues., 7 p.m. 

I/P Univ. Campus, B71 Neff Hall 

Blair MacDermid (219) 749-2042 

• IOWA 

Iowa City Chapter 

4lh Tues. 

Engineering Bldg., Rm. 2128 

University of Iowa 

Robert Benedict (319) 337-7853 



Central Iowa FIG Chapter 

1st Tues., 7:30 p.m. 

Iowa State Univ., 214 Comp. Sci. 

Rodrick Eldridge (515) 294-5659 

Fairfield FIG Chapter 

4th day, 8:15 p.m. 

Gurdy Leete (515) 472-7077 

• KANSAS 

Wichita Chapter (FIGPAC) 
3rd Wed., 7 p.m. 
Wilbur E. Walker Co., 
532 Market 

Ame Flones (316) 267-8852 

• MASSACHUSETTS 

Boston Chapter 
3rd Wed., 7 p.m. 
Honeywell 

300 Concord, Billerica 

Gary Chanson (617) 527-7206 

• MICHIGAN 

Detroit/Ann Arbor area 
4th Thurs. 

Tom Chrapkiewicz (313) 322- 
7862 

• MINNESOTA 

MNFIG Chapter 
Minneapolis 

Even Month, 1st Mon., 7:30 p.m. 
Odd Month, 1st Sat., 9:30 a.m. 
Vincent Hall, Univ. of MN 
Fred Olson (612) 588-9532 



• MISSOURI 

Kansas City Chapter 
4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Linus Orth (913)236-9189 
St. Louis Chapter 
1st Tues., 7 p.m. 
Thornhill Branch Library 
Contact Robert Washam 
91 Weis Dr. 
Ellis ville, MO 63011 

• NEW JERSEY 

New Jersey Chapter 
Rutgers Univ., Piscataway 
Nicholas Lordi (201) 338-9363 



• NEW MEXICO 

Albuquerque Chapter 

1st Thurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
Jon Bryan (505) 298-3292 

• NEW YORK 

FIG, New York 
2nd Wed., 7:45 p.m. 
Manhattan 

Ron Martinez (212) 866-1157 

Rochester Chapter 

4th Sat., 1 p.m. 

Monroe Comm. College 

Bldg. 7, Rm. 102 

Frank Lanzafame (716) 235-0168 

Syracuse Chapter 

3rd Wed., 7 p.m. 

Henry J. Fay (315) 446-4600 

• NORTH CAROLINA 

Raleigh Chapter 

Frank Bridges (919) 552-1357 

• OHIO 

Akron Chapter 

3rd Mon., 7 p.m. 

McDowell Library 

Thomas Franks (216) 336-3167 

Athens Chapter 

Isreal Urieli (614) 594-3731 

Cleveland Chapter 

4th Tues., 7 p.m. 

Chagrin Falls Library 

Gary Bergstrom (216) 247-2492 

Dayton Chapter 

2nd Tues. & 4th Wed., 6:30 p.m. 

CFC. 1 1 W. Monument Ave., 

#612 

Gary Ganger (513) 849-1483 

• OKLAHOMA 

Central Oklahoma Chapter 

3rd Wed., 7:30 p.m. 

Health Tech. Bldg., OSU Tech. 

Contact Larry Somers 

2410 N.W. 49th 

Oklahoma City, OK 731 12 



• OREGON 

Greater Oregon Chapter 

Beaverton 
2nd Sat., 1 p.m. 
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Tektronix Industrial Park, 
Bldg. 50 

Tom Almy (503) 692-2811 
Willamette Valley Chapter 

4th Tues., 7 p.m. 
Linn-Benton Comm. College 
Pann McCuaig (503) 752-5113 

• PENNSYLVANIA 

Philadelphia Chapter 
4th Sat., 10 a.m. 

Drexel University, Stratton Hall 
Melanie Hoag (215) 895-2628 

• TENNESSEE 

East Tennessee Chapter 

Oak Ridge 

2nd Tues., 7:30 p.m. 

Sci. Appl. Intl. Corp., 8th Fl. 

800 Oak Ridge Turnpike, 

Richard Secrist (615) 483-7242 

• TEXAS 

Austin Chapter 

Contact Matt Lawrence 

P.O. Box 180409 

Austin, TX 78718 

Dallas/Ft. Worth 

Metroplex Chapter 

4th Thurs., 7 p.m. 

Chuck Durrett (214) 245-1064 

Houston Chapter 

1st Mon., 7 p.m. 

Univ. of St. Thomas 

Russel Harris (713) 461-1618 

Periman Basin Chapter 

Odessa 

Carl Bryson (915) 337-8994 

• UTAH 

North Orem FIG Chapter 

Contact Ron Tanner 
748 N. 1340 W. 
Orem, UT 84057 

• VERMONT 

Vermont Chapter 

Vergennes 

3rd Mon., 7:30 p.m. 

Vergennes Union High School 

Rm. 210, Monkton Rd. 

Don VanSyckel (802) 388-6698 

• VIRGINIA 

First Forth of Hampton 
Roads 

William Edmonds (804) 898-4099 

Potomac Chapter 

Arlington 

2nd Tues., 7 p.m. 

Lee Center 

Lee Highway at Lexington St. 

Joel Shprentz (703) 860-9260 

Richmond Forth Group 

2nd Wed., 7 p.m. 

154 Business School 

Univ. of Richmond 

Donald A. Full (804) 739-3623 



• WISCONSIN 

Lake Superior FIG Chapter 

2nd Fri., 7:30 p.m. 
Main 195, UW-Superior 
Allen Anway (715) 394-8360 
MAD Apple Chapter 
Contact Bill Horton 
502 Adas Ave. 
Madison, WI 53714 
Milwaukee Area Chapter 
Donald Kimes (414) 377-0708 

INTERNATIONAL 

• AUSTRALIA 

Melbourne Chapter 

1st Fri., 8 p.m. 
Contact Lance Collins 
65 Martin Road 
Glen Iris, Victoria 3 146 
03/29-2600 
Sydney Chapter 
2nd Fri., 7 p.m. 

John Goodsell Bldg., Rm. LG19 
Univ. of New South Wales 
Contact Peter Tregeagle 
10 Binda Rd., Yowie Bay 
02/524-7490 

• BELGIUM 

Belgium Chapter 

4th Wed., 20:00h 
Contact Luk Van Loock 
Lariksdreff 20 
2120 Schoten 
03/658-6343 

Southern Belgium Chapter 

Contact Jean-Marc Bertinchamps 
Rue N. Monnom, 2 
B-6290 Nalinnes 
071/213858 

• CANADA 

Northern Alberta Chapter 

4th Sat., 1 p.m. 

N. Alta. Inst, of Tech. 

Tony Van Muyden (403) 962-2203 

Nova Scotia Chapter 

Halifax 

Howard Harawitz (902) 477-3665 
Southern Ontario Chapter 

Quarterly, 1st Sat., 2 p.m. 
Genl. Sci. Bldg., Rm. 212 
McMaster University 
Dr. N. Solntseff (416) 525-9140 
ext. 3 

Toronto Chapter 

Contact John Clark Smith 

P.O. Box 230, Station H 

Toronto, ON M4C 5J2 

Vancouver Chapter 

Don Vanderweele (604) 941-4073 

• COLOMBIA 

Colombia Chapter 

Contact Luis Javier Parra B. 
Aptdo. Aereo 100394 
Bogota 214-0345 



• DENMARK 

Forth Interesse Gruupe 
Denmark 

Copenhagen 

Erik Oestergaard, 1-520494 

• ENGLAND 

Forth Interest Group- U.K. 

London 

1st Thurs., 7 p.m. 
Polytechnic of South Bank 
Rm. 408 
Borough Rd. 
Contact D.J. Neale 
58 Woodland Way 
Morden, Surry SM4 4DS 

• FRANCE 

French Language Chapter 

Contact Jean-Daniel Dodin 

77 Rue du Cagire 

31100 Toulouse 

(16-61)44.03.06 

FIG des Alpes Chapter 

Annely 

Georges Seibel, 50 57 0280 

• GERMANY 

Hamburg FIG Chapter 
4th Sat., 1500h 

Contact Horst-Gunter Lynsche 
Common Interface Alpha 
Schanzenstrasse 27 
2000 Hamburg 6 

• HOLLAND 

Holland Chapter 

Contact Adriaan van Roosmalen 
Heusden Houtsestraat 134 
4817 We Breda 
31 76 713104 

• IRELAND 

Irish Chapter 

Contact Hugh Dobbs 
Newton School 
Waterford 

051/75757 or 051/74124 



• ITALY 
FIG Italia 

Contact Marco Tausel 
Via Gerolamo Fomi 48 
20161 Milano 
02/435249 



• JAPAN 

Japan Chapter 

Contact Toshi Inoue 
Dept. of Mineral Dev. Eng. 
University of Tokyo 
7-3-1 Hongo, Bunkyo 113 
812-2111 ext. 7073 



• REPUBLIC OF CHINA 
(R.O.C.) 

Contact Ching-Tang Tzeng 
P.O. Box 28 
Lung-Tan, Taiwan 325 

• SWEDEN 

Swedish Chapter 

Hans Lindstrom, 46-31-166794 

• SWITZERLAND 

Swiss Chapter 

Contact Max Hugelshofer 

EKNI & Co., Elektro-Industrie 

Stationsstrasse 

8306 Bruttisellen 

01/833-3333 



SPECIAL GROUPS 

• Apple Corps Forth Users 

Chapter 

1st & 3rd Tues., 7:30 p.m. 
1515 Sloat Boulevard, #2 
San Francisco, CA 
Dudley Ackerman 
(415) 626-6295 

• Baton Rouge Atari Chapter 

Chris Zielewski (504) 292-1910 

• FIGGRAPH 

Howard Pearlmutter 
(408) 425-8700 

• NC4000 Users Group 

John Carpenter (415) 960-1256 



• NORWAY 

Bergen Chapter 

Kjell Birger Faeraas, 47-518-7784 
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